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
Partager