1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
Function LeFichierExiste(ByVal NomRep As String, ByVal NomFichier As String, ByVal Alerte As Boolean) As Boolean
'Cette fonction vérifie l'existence du fichier "NomFichier" dans le répertoire "NomRep". S'il s'y trouve,
'elle renvoie "True". Sinon, elle renvoie "False", et un message prévient l'utilisateur.
LeFichierExiste = False
If Dir(NomRep & "\" & NomFichier, vbHidden) <> "" Then
'le fichier existe (vbHidden permet de le retrouver même s'il est caché)
LeFichierExiste = True
Else
If Alerte = True Then
Msg = MsgBox("Le fichier " & NomRep & "\" & NomFichier & " n'existe pas!", vbCritical, "Développez.com")
End If
End If
End Function |
Partager