Tester la presence d'un fichier

Soyez le premier à donner votre avis sur cette source.

Vue 4 775 fois - Téléchargée 349 fois

Description

Comment puis-je tester la présence d'un fichier ?

Mettez cette fonction dans un Module :

Source / Exemple :


Public Function TesterPresenceFichier(Fichier As String) As Boolean
    Dim a As Long
    
    On Error Resume Next
    
    a = FileLen(Fichier)
    
    TesterPresenceFichier = Not (Err.Number > 0)
    
    On Error GoTo 0
End Function

' Puis executez cette fonction comme ci-dessous :

TesterPresenceFichier("C:\AUTOEXEC.BAT")

Codes Sources

A voir également

Ajouter un commentaire Commentaires
baouc
Messages postés
26
Date d'inscription
mercredi 12 février 2003
Statut
Membre
Dernière intervention
15 octobre 2007

13 févr. 2007 à 19:17
Intéressant comme idée.
Peut etre une petite amélioration:

'*******************************************************
Public Function Verification(Fichier As String) As Boolean
On Error GoTo Erreur53

Verification (GetAttr(Fichier) 0)

On Error GoTo 0
Verification = True

Exit Function
Erreur53:
Verification = False
On Error GoTo 0

End Function
'*******************************************************
rexar
Messages postés
2
Date d'inscription
lundi 17 novembre 2003
Statut
Membre
Dernière intervention
28 juin 2005

28 juin 2005 à 13:25
Merci Bleu055 :)
bleu055
Messages postés
8
Date d'inscription
lundi 8 mars 2004
Statut
Membre
Dernière intervention
30 août 2006

28 juin 2005 à 12:30
Filelen teste la longueur du fichier, c'est utile si tu as en entré un fichier texte de 0ko : le fichier existe mais risque de provoquer des erreurs de lecture
rexar
Messages postés
2
Date d'inscription
lundi 17 novembre 2003
Statut
Membre
Dernière intervention
28 juin 2005

28 juin 2005 à 01:50
Esque quelqu'un pourrait m'expliquer a quoi sert la fonction FileLen ?
bleu055
Messages postés
8
Date d'inscription
lundi 8 mars 2004
Statut
Membre
Dernière intervention
30 août 2006

16 juin 2005 à 17:33
si il faut entrer le chemin de fichier avec la méthode getattr
Afficher les 13 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.