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

 987450 visiteurs

 3 visiteurs en ligne

Recherche
 
Fermer

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