Script VBS : Tester L'existence d'un répertoire

De $1

punaise1.gif

 

Voici un exemple de script permettant de tester l'existence d'un répertoire afin de monter un disque virtuel :

 

ON ERROR RESUME NEXT

Set WshNetwork = WScript.CreateObject("WScript.Network")


CreateObject("Wscript.Shell").Run "subst.exe" & " " & "Z:" & " " & "/D" ,vbhyde

'Supprime l'ancien disque virtuel

Dim oFSO, Reponse_OS, Doc_Users
Set oFSO = CreateObject("Scripting.FileSystemObject")
Reponse_OS = oFSO.FolderExists("C:\Users")
if Reponse_OS = True Then
Docs_Users = "C:\Users"
else
Docs_Users = "C:\Docume~1"

end if

CreateObject("Wscript.Shell").Run "subst.exe"&" "&"Z:"&" "&Docs_Users ,vbhyde

'Monte un Disque Virtuel Z:

 

 

 howto05_small.pngVous en pensez quoi ?


 

 

 

 
 
Images (0)
 
Commentaires (0)
Vous devez être connecté pour poster un commentaire.