Bonjour à tous,

je débute en VBS et je dois faire un script qui copie un "fichier_save.txt" d'un serveur1 à un serveur2 (deux serveurs windows 2008)

Le script doit crée un repertoire sur le serveur1 pour receptionner le "fichier fichier_save.txt" qui vient du serveur2

Lorque j'éxecute le script le repertoire se crée bien sur le serveur1, mais je n'arrive pas à récupérer le fichier distant localisé sur le
D:\\serveur2\TEST1\fichier_save.txt

Il me sort : Save_C.vbs(21, 1) Erreur d'exécution Microsoft VBScript: Chemin d'accès introuvable alors que le chemin est bon ???

Merci à tous pour votre réponse

Mon script

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Const OverWriteFiles = TRUE
Dim ofso, objFSO
Dim ObjetNetwork
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set ofso = CreateObject("Scripting.FileSystemObject" )
 
CreerRep("c:\test\" )
 
Sub CreerRep(Chemin)
 If Not ofso.FolderExists(chemin) Then
  CreerRep(ofso.GetParentFolderName(chemin))
  ofso.CreateFolder(chemin)
 End If
End Sub
 
objFSO.CopyFile "D:\\serveur2\TEST1\fichier_save.txt" , "c:\test\fichier_save.txt" , OverWriteFiles