Tester l'éxistence d'un fichier avec VB

Signaler
Messages postés
1
Date d'inscription
vendredi 22 novembre 2002
Statut
Membre
Dernière intervention
22 novembre 2002
-
Messages postés
88
Date d'inscription
mardi 30 juillet 2002
Statut
Membre
Dernière intervention
1 mars 2008
-
Comment faire pour tester l'éxistence d'un fichier, avec VB? De même avec un dossier.
Tintaspi

1 réponse

Messages postés
88
Date d'inscription
mardi 30 juillet 2002
Statut
Membre
Dernière intervention
1 mars 2008

-------------------------------
Réponse au message :
-------------------------------

Comment faire pour tester l'éxistence d'un fichier, avec VB? De même avec un dossier.
Tintaspi

Public Function FICHIER_EXISTE(Nomfichier As String) As Boolean
'-Tester l'existence d'un fichier
On Error Resume Next

'-Déclaration
Dim canal As Integer
'-Ouverture
canal = FreeFile

Open Nomfichier For Input As canal
If Err.Number 0 Then FICHIER_EXISTE True

Close canal
On Error GoTo 0
End Function

A+ BFR
0