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 : 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
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