Copier un fichier sur un serveur Distant

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:

---

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

---

Bonjour,

A moins qu'un partage du serveur distant soit monté sur la lettre D:, je ne vois pas d'information concernant un serveur distant dans ton script.
Peut être que de cette manière ça marcherait mieux ?

Code:

---

objFSO.CopyFile "\\serveur2\d$\TEST1\fichier_save.txt" , "c:\test\fichier_save.txt" , OverWriteFiles

---

Sinon, la création de 2 objets pour le FSO n'est pas utile, de même que la déclaration de "ObjetNetwork" que tu n'utilises pas.

Bonne continuation