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

 1245128 visiteurs

 14 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 7051 fois
Vous êtes ici :   Accueil » Le fichier existe ?