Cette fonction teste si un fichier existe dans un répertoire donné. Si le nom du fichier n'est pas définit dans l'appel, la fonction retourne Faux.
Exemple d'appel :
Option Explicit
Sub TestFic()
Dim mFic As String, mRep As String
mFic = "MonFichier.txt"
mRep = "C:\"
MsgBox Fichier_Existe(mFic, mRep, "\")
End Sub
Fonction :
Function Fichier_Existe(F As String, D As String, Sep As String) As Boolean
If F <> "" Then
D = IIf(Right(D, 1) = Sep, D, D & Sep)
Fichier_Existe = (Dir(D & F) <> "")
End If
End Function
Cet article est régulièrement mis à jour par des experts sous la direction de Jean-François Pillou, fondateur de CommentCaMarche et directeur délégué au développement numérique du groupe Figaro.
