Comment faire pout tester si un fichier est crée?

cs_kenny29 Messages postés 7 Date d'inscription mardi 18 mai 2004 Statut Membre Dernière intervention 28 mai 2004 - 26 mai 2004 à 14:04
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 - 26 mai 2004 à 14:40
Je dois faire un programme qui scan un dossier sur un réseau puis en meme qui crée un fichier .txt dans lequel il met le nom de tous les fichiers rencontrés dans ce dossier.
On ma demandé de rajouter un test afin de savoir si lors de la création du fichier .txt, le fichier se crée bien. Pour le moment le programme marche et le fichier se crée bien.
J'aimerai donc savoir le code a utiliser pour faire ce test.

4 réponses

pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 5
26 mai 2004 à 14:24
Simple voici un exemple :

If Dir("c:\fichier.txt", vbNormal) <> vbNullString Then MsgBox "Existe" Else MsgBox "Existe pas"

++
0
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 28
26 mai 2004 à 14:32
Inutile de tester la présence du fichier !! si c'est toi qui le crée, je suppose que c'est avec une instruction Open "MonFic.txt" ...

Donc mets une gestion d'erreur autour !!!
Sub Exemple()
On Error Goto CantCreateFile
Open "toto.txt" For output as #1
On Error Goto 0
' Ton code pour remplir le ficheir
...
Close
Exit Sub 
CantCreateFile:
Msgbox "Je n'ai pas réussi à créer le fichier"
End Sub

Christophe R.
0
cs_kenny29 Messages postés 7 Date d'inscription mardi 18 mai 2004 Statut Membre Dernière intervention 28 mai 2004
26 mai 2004 à 14:38
bah merci les gas c'est cool je viens de commencer à apprendre le vb il y a une semaine alors...

Merci encore
0
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 28
26 mai 2004 à 14:40
Bienvenu au club !!!

Christophe R.
0
Rejoignez-nous