Repertoire de travail au lieu de c:, un nom de clé usb ?

Hello

Peut-on faire ceci :

Au lieu de mettre c: ou d: etc... stRep = "C:\" 'Répertoire de travail

Mettre le nom d'un disque dur ou d'une clé usb.

Il se trouve que je dois travailler avec des clés usb.
Mais chez un client elle ce trouvera comme E:, chez un autre comme D:
Donc pas de référence stable.

Par contre le nom de la clé en soit ne change pas.

Bien à vous

ton script il se trouve où sur ta clef ..?

non. je ne pense pas faire cela. Le script serai dans un répertoire fixe précis sur le dd. Mais les fichiers que le script doit traiter son sur la clé.

A+

Hello,

J'ai trouvé une solution mais le script est long en temps exécution ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")   Set colDisks = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk")   For each objDisk in colDisks If objDisk.DriveType = 2 then'2=Removable If objDisk.VolumeName = "MERLIN" then Merlindr = objDisk.Name msgBox "Je suis la lettre de la clé Merlin " & Merlindr End If 'now you write to Merlindr as your target End If Next

---

Si je me trompe pas je peux donc faire ceci :

Code:

---

stRep = Merlindr 'Répertoire de travail

---

Mais pourquoi met-il tant de temps à s'exécuter ?

Ah oui, autre chose; si j'exécute le script en même temps que d'inserer la clé usb, alors la clé ne se 'connecte' même pas.

Tandis, si je mais d'abord la clé, et que je la vois dans mon ordi, et puis lancer script, il n'y a aucun souci.

Le temps d'exécution du script est forcement long puisqu'il effectue le travail sur tous les disques logiques de la machine. Pour en savoir plus sur Win32_LogicalDisk, regarde ici :
http://msdn.microsoft.com/library/de...ogicaldisk.asp
Essaye cela :

Code:

---

1 2	Set colDisks = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk Where Name = 'MERLIN'")

---

Je n'ai pas testé, mais si cela fonctionne, le script pourrait être plus rapide.

Citation:

---

Ah oui, autre chose; si j'exécute le script en même temps que d'inserer la clé usb, alors la clé ne se 'connecte' même pas.

Tandis, si je mais d'abord la clé, et que je la vois dans mon ordi, et puis lancer script, il n'y a aucun souci.

---

Cela parait normal, si tu connectes un nouveau disque logique pendant que le script le recherche parmis la liste de tous les disques logiques, alors ça peut provoquer des merdes.

Excellent !

Un grand merci pour cette idée que j'ai légèrement modifié :

Maintenant le script donne un résultat instantané !

Code:

---

1 2	Set colDisks = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk Where DriveType=2 And VolumeName='MERLIN'")

---