Test existance fichier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 754 fois - Téléchargée 46 fois

Contenu du snippet

Petite fonctions rapides qui montrent comment verifier l'existance d'un fichier ou d'un dossier

Utilisation :
if (DossierExiste ( "c:\Winnt\" ) ) then ...

if (fichierExiste ("Para.ini")) then ...
ou
if (FichierExiste ("c:\config.sys")) then ...

Source / Exemple :


Public Function FichierExiste(ByVal Nom As String) As Boolean
On Error Resume Next
    Dim attrib As Integer
    
    attrib = GetAttr(Nom)
    If (Err <> 0) Then
        FichierExiste = False
    Else
        If ((attrib And vbDirectory) = vbDirectory) Then
            FichierExiste = False
        Else
            FichierExiste = True
        End If
    End If
End Function

Public Function DossierExiste(ByVal Nom As String) As Boolean
On Error Resume Next
    Dim Tmp As String
    If (Right$(Nom, 1) = "\") Then
        Tmp = Mid$(Nom, 1, Len(Nom) - 1)
    Else
        Tmp = Nom
    End If
    
    attrib = GetAttr(Nom)
    If (Err <> 0) Then
        DossierExiste = False
    Else
        If ((attrib And vbDirectory) = vbDirectory) Then
            DossierExiste = True
        Else
            DossierExiste = False
        End If
    End If
End Function

Conclusion :


Une classe de gestion des fichier (Droits NTFS, Existance , copie, ...) est en cours de développement.

En attendant Bon Code...

A voir également

Ajouter un commentaire

Commentaires

Messages postés
39
Date d'inscription
vendredi 29 février 2008
Statut
Membre
Dernière intervention
19 juin 2009

Très bien
Messages postés
1522
Date d'inscription
mardi 18 décembre 2001
Statut
Modérateur
Dernière intervention
21 août 2010
4
Euh quelque chose comme :

MonBool = FichierExiste ("c:\test.txt")

a un detail prés ca doit etre ca (moi et le VB, ca fait ...)
Messages postés
16
Date d'inscription
mardi 14 août 2007
Statut
Membre
Dernière intervention
19 mars 2010

merci crazyht, mais croyez moi j'ai rien compris c'est à dire par exemple j'ai un fichier sur c:\test.txt si je veux vérifier son existance que dois je faire?
merci encore une autre foi
Messages postés
19
Date d'inscription
mardi 12 avril 2005
Statut
Membre
Dernière intervention
9 août 2015

Tout simplement impec !
Messages postés
19
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
27 janvier 2011

Toujours les mêmes qui nous raconte leur vie, si le code sert à quelqu'un, alors où est le problème?
vbfrance est devenu le site des grosses têtes et des raleurs
Afficher les 17 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.