Recherche
Recherche
Les mémos
Je débute...
Visites

 999723 visiteurs

 2 visiteurs en ligne

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 5752 fois