Bonjour,

je suis debutant en vbs. Jai reussi a me depatouiller avec divers exemples sur le net pour faire ce script de copie d'un fichier et qui le renomme à la date du jour. Sur mon poste, windows xp, il s'execute correctement. Des que je le lance sur un serveur 2003, il me met erreur 800004C: path not found.

Avez vous une idée? J'insiste sur le fait que les chemins sont tous corrects.

Merci d'avance.


Code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function FileCp (strSourceFile, strTargetFile)
   Const OverwriteExisting = True
   Set objFSO = CreateObject("Scripting.FileSystemObject" )
   If Not objFSO.FileExists(strSourceFile) Then
      MsgBox "Fichier " & strSourceFile & " introuvable", vbExclamation
      Exit Function
   End If
   objFSO.CopyFile strSourceFile , strTargetFile, OverwriteExisting
   Set objFSO = Nothing
 
End Function
 
      FileCp "c:\test.txt", "c:\"& Mid(Date,4,2) & Left(Date,2) & Right(Date, 4) & ".txt"