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

Signaler
Messages postés
7
Date d'inscription
mardi 18 mai 2004
Statut
Membre
Dernière intervention
28 mai 2004
-
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
-
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

Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
4
Simple voici un exemple :

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

++
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
27
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.
Messages postés
7
Date d'inscription
mardi 18 mai 2004
Statut
Membre
Dernière intervention
28 mai 2004

bah merci les gas c'est cool je viens de commencer à apprendre le vb il y a une semaine alors...

Merci encore
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
27
Bienvenu au club !!!

Christophe R.