Discussion :

[PAB/31/SAB]

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

[pitchalov]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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