Copier fichier sur repertoire

Résolu
DEEP_R Messages postés 11 Date d'inscription jeudi 21 septembre 2006 Statut Membre Dernière intervention 30 octobre 2006 - 28 sept. 2006 à 10:11
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 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" ?' 

3 réponses

cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 26
28 sept. 2006 à 16:46
 Bonjour,
Renfield avait donné la réponse (FileExists ou FolderExists)

path2 = "d:"
FicEntree = "fic1.txt"
FicSortie = "fic2.txt"

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.
3
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
28 sept. 2006 à 10:59
Wscript.Echo "folder does not exist"
vive le copier coller ^^

fais simplement FileExists (comme tu as fait FolderExists)

Renfield
Admin CodeS-SourceS- MVP Visual Basic
0
DEEP_R Messages postés 11 Date d'inscription jeudi 21 septembre 2006 Statut Membre Dernière intervention 30 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!

merci de bien vouloir m'aider!
0
Rejoignez-nous