Copie Fichier de mon Local vers Serveur distant
Bonjour,
Je me derige vers vous afin de m'aider trouver le probleme dans code VBS ci-dessous,
J'ai fait un petit qui permet de copier tous les fichiers qui comment par "PFZ_RT" vers le serveur.
J'ai une erreur au niveau de la ligne 31, CopyFile , il me dis le chemin vers mon serveur est introuvable :
Pouvez-vous svp m'aider
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
| Dim fso
Dim ObjDossier
Dim Source_Path
Dim ObjFichier
Dim WshNetwork
Source_Path = "C:\Simulation_serveur\"
Set fso = CreateObject ( "Scripting.FileSystemObject" )
Set ObjDossier = fso.GetFolder(Source_Path )
Set oShell = CreateObject("Shell.Application")
Set fsor = WScript.CreateObject("Scripting.FileSystemObject")
FichierTXT = "C:\Simulation_serveur\resultat\Fichier_Copies.txt"
Set NewFichier = fso.CreateTextFile(FichierTXT,TRUE)
if (ObjDossier.Files.Count > 0 ) then
For each ObjFichier In ObjDossier.Files
if left( ObjFichier.Name,5) = "PFZ_RT" then
FTPUser = "monuseramoi"
FTPPass = "monpassamoi"
FTPHost = "10.143.127.22"
''FTPDir = "/public_html/testfolder/"
Destination_path = "/integ/PPFZ/data/in/IPPFZ17/"
strFTP = "//" & FTPUser & ":" & FTPPass & "@" & FTPHost & Destination_path
fso.CopyFile Source_Path & ObjFichier.Name, strFTP & ObjFichier.Name '<-*-*-*-*- l'erreur -*-*-*-*-<
NewFichier.WriteLine ("le fichier (" & ObjFichier.Name & ") a été copié dans le dossier " & strFTP)
End If
Next
msgbox "la copie des fichiers est terminé vers le serveur DEV"
Else
msgbox "le dossier est vide"
End If |