Test existance fichier

5/5 (17 avis)

Snippet vu 16 170 fois - Téléchargée 49 fois

Commenter

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
cs_Nox Messages postés 415 Date d'inscription mardi 3 avril 2001 Statut Membre Dernière intervention 26 avril 2008
19 déc. 2001 à 04:03
DEJAS SUR LE SITE 3 FOIS AU MOINS
fou volant13 Messages postés 55 Date d'inscription vendredi 29 juin 2001 Statut Membre Dernière intervention 2 février 2002
19 déc. 2001 à 16:23
Bientot Vb france va devenir un site ou on trouvera plus que des sources pour regarder si des fichiers existent avec des méthodes de plus en plus pourries et des bouffeurs de cookies....
Si vous avez pas d'idée, refaite pas ce qui ya déja sur le site.
cs_Crazyht Messages postés 1522 Date d'inscription mardi 18 décembre 2001 Statut Membre Dernière intervention 21 août 2010 8
20 déc. 2001 à 10:48
Désolé, j'ai pas verifier tout les source du site avant de mettre celui ci, mais j'ai vu un source qui marchait pas dans tous les cas et j'en ai donné un qui Fonctionne (je pense) pour tous les cas.

Encors désolé.

A++
DMike92 Messages postés 21 Date d'inscription mardi 12 avril 2005 Statut Membre Dernière intervention 30 juillet 2021
4 sept. 2008 à 19:29
Tout simplement impec !
simodel Messages postés 38 Date d'inscription vendredi 29 février 2008 Statut Membre Dernière intervention 19 juin 2009
14 juin 2009 à 05:50
Très bien
S'inscrire maintenant

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.

Du même auteur (cs_Crazyht)