VBScript: erreur 800A004C path not found sur win2k3, ok sous win xp
VBScript: erreur 800A004C path not found sur win2k3, ok sous win xp - VB/VBA/VBS - Programmation
MarshPosté le 16-08-2007 à 04:25:11
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: 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
Marsh Posté le 16-08-2007 à 04:25:11
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:
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"
Message édité par kofky0 le 16-08-2007 à 04:30:41