Discussion :

[kofky0]

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"

[SfJ5Rpw8]

sur qu'elle ligne l'erreur

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

vérifie les quand même en les affichant

Code :

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

1
2
3
4
5
 
Function FileCp (strSourceFile, strTargetFile)
   Const OverwriteExisting = True
 MsgBox "Copie fichier : " & vbcrlf & strSourceFile & vbcrlf & " vers " & vbcrlf & strTargetFile
...

[Invité]

Bonjour

Quand tu utilises la fonction avec cette ligne

Code :

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

 FileCp "c:\test.txt", "c:\"& Mid(Date,4,2) & Left(Date,2) & Right(Date, 4) & ".txt"

que tu dis lancer sur un serveur, celui-ci ne sait pas où est c, ne faudrait-il pas indiquer aussi la machine ?

Starec

[kofky0]

merci a vous.

Finalement jai codé d'une autre facon en regardant la faq et cette fois ca fonctionne.

Merci à vous!

[AlainTech]

Un petit clic sur le bouton résolu, s'il te plaît?

Merci.