Copier fichier sur repertoire

Résolu
Signaler
Messages postés
11
Date d'inscription
jeudi 21 septembre 2006
Statut
Membre
Dernière intervention
30 octobre 2006
-
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
-
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

Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
 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.
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
73
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
Messages postés
11
Date d'inscription
jeudi 21 septembre 2006
Statut
Membre
Dernière intervention
30 octobre 2006

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!