vbs copier un dossier si il n'existe pas

vbs copier un dossier si il n'existe pas - VB/VBA/VBS - Programmation

Marsh Posté le 28-07-2010 à 15:03:03    

bonjours, j'essaye de créer un script qui permet de copier un fichier depuis un serveur le script se lance au démarrage de la session est vérifie si il existe si existe le script s'arrête sinon il le copie.
 

Code :
  1. Set oFSO = CreateObject("Scripting.FileSystemObject" )
  3. If Not oFSO.FolderExists( "C:\dossier" ) Then
  4. Set objFolder = oFSO.CreateFolder("C:\dossier" )
  5. End If
  8. Set oFSO = CreateObject("Scripting.FileSystemObject" )
  9. oFSO.CopyFolder "C:\dossier","c:\"

Reply

Marsh Posté le 28-07-2010 à 15:03:03   

Reply

Sujets relatifs:

Leave a Replay

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