En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1219694 visiteurs

 10 visiteurs en ligne

Nous contacter

Contact

Le fichier existe ?

Tester l'existence d'un fichier

Cette fonction, contrairement au classique :

If dir("c:\cheminfichier.ext")<>"" Then

a la particularité de détecter les fichiers cachés et les fichiers système.

La fonction :

Function fFileExist(strPathFile As String) As Boolean
    On Error GoTo FileErr

    If GetAttr(strPathFile) = vbDirectory Then
        MsgBox strPathFile & " n'est pas un fichier mais un dossier !! ", vbCritical
    Else
        fFileExist = True
    End If
    Exit Function

FileErr:
    If Err.Number = 53 Then
        fFileExist = False
    End If

    If Err.Number = 76 Then
        MsgBox strPathFile & " n'est pas un chemin valide !!", vbCritical
        fFileExist = False
    End If
End Function


Catégorie : - Fichiers
Page lue 6947 fois

Vous êtes ici :   Accueil » Le fichier existe ?