[VBS] Ouvrir un lecteur spécifique.

Ouvrir un lecteur spécifique. [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 23-07-2008 à 06:30:32    

Hello,
 
Je veux faire un script qui affiche une fenêtre demandant si il faut synchroniser les fichiers sur le lecteur D:\ de mon disque dur. Si la réponse est "Oui" la synchronisation se fait sans problème. Si la réponse est "Non" par contre ça ne fonctionne pas.
 
Ce que fait ou devrait faire le code ci-dessous, c'est tout simplement ouvrir la clé USB ou se trouve le script comme si on avait fait un click-droit "Explorer", mais ça ne fonctionne pas... j'espère que quelqu'un pourra m'aider
 

Code :
  1. Dim oFso
  2. Dim sDrive
  3. Dim oSshell
  5. Set oFso= CreateObject("Scripting.FileSystemObject" )
  6. Set oShell= WScript.CreateObject("Shell.Application" )
  8. response=msgbox("Voulez-vous synchroniser les fichiers personnels avec votre ordinateur?", vbQuestion+vbYesNo, "Synchroniser?" )
  11. if response=6 then
  13. Const OverWriteFiles = TRUE
  15. Set objFSP = CreateObject("Scripting.FileSystemObject" )
  16. objFSP.CopyFolder "\\Autorun", "D:\Personnel\MEMORYSTICK", OverWriteFiles
  18. objFSP.CopyFolder "\\Autorun", "D:\Personnel\MEMORYSTICK", OverWriteFiles
  20. objFSP.CopyFolder "\\Backup", "D:\Personnel\MEMORYSTICK", OverWriteFiles
  22. objFSP.CopyFolder "\\Koniambo", "D:\Personnel\MEMORYSTICK", OverWriteFiles
  24. objFSP.CopyFolder "\\Personnel", "D:\Personnel\MEMORYSTICK", OverWriteFiles
  26. objFSP.CopyFolder "\\Software", "D:\Personnel\MEMORYSTICK", OverWriteFiles
  28. objFSP.CopyFolder "\\autorun.inf", "D:\Personnel\MEMORYSTICK", OverWriteFiles
  30. Else
  32. For Each sDrive In oFso.Drives
  33.          If Not sDrive="A:" then
  34.             If oFso.FolderExists(sDrive & "\aKaii" ) Then
  35.                oShell.Open sDrive
  36.                Exit For           
  37.             End If
  38.          End If
  39. Next
  41. end if


Le script se relance à chaque fois que je click "Non", ca veut dire qu'il ouvre bien la clé USB, mais qu'il exécute automatiquement l'autorun => cercle perpétuel...


Message édité par akaii le 23-07-2008 à 06:35:13
Reply

Marsh Posté le 23-07-2008 à 06:30:32   

Reply

Marsh Posté le 04-08-2008 à 05:27:41    

Personne ne sait?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed