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

 1218219 visiteurs

 4 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 : Les mémos - Fichiers
Page lue 6939 fois

Vous êtes ici :   Accueil » Le fichier existe ?