DEEP_R
Messages postés11Date d'inscriptionjeudi 21 septembre 2006StatutMembreDernière intervention30 octobre 2006
-
28 sept. 2006 à 10:11
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 2018
-
28 sept. 2006 à 16:46
bonjour
jai un petit probleme concernant les fonctions IF... Else. voila jai ecrit une petit programme pour copier un fichier d'un repertoire a l'autre et si jamais ce fichier existe deja dans le repertoire de destination, un message maffiche " fichier deja existant" quelqu'un pourrait maider sur cela! jai mis le programme pour vous aider à me corriger!
merci d'avance!
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.Getfolder("C:\siemens")
MonFic.Copy "D:\copie", True
Msg = "fichier copié"
MsgBox(Msg)
IF FSys.folderExists("D:\copie") Then
Msgbox "folder exists"
Else
Wscript.Echo "folder does not exist"
End if
'si le fichier"D:copie" existe deja, quel est la fonction a mettre pour signaler Msgbox "fichier deja existant" ?'
Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
If Fso.FileExists(Path2 & FicSortie) Then
MsgBox "le fichier Path2 & FicSortie existe déjà"
Else
Fso.CopyFile Path2 & FicEntree, Path2 & FicSortie
End if
Set Fso = Nothing
jean-marc
N'oublie pas de valider "Réponse acceptée" tes précédents topics.
DEEP_R
Messages postés11Date d'inscriptionjeudi 21 septembre 2006StatutMembreDernière intervention30 octobre 2006 28 sept. 2006 à 15:48
salut!
Merci pour ta réponse mais cela ne repond pas vraiment a ma question, moi, je voulais pas avoir deux messages consécutives mais un lorsque le message a été copi" avec succes et l'autre si le fichier existe deja dans le repertoire de destination. alors que moi jai ces deux messages successifs "fichier copié" et "folder does not exist". apparemment il y a un petit probleme avec le If...Else statement. vu que je ne connais pas trop le vbscript je me suis planté la dessus!