Titre: Cherche si fichier existe.
Description:
Recherche d'un fichier dans un répertoire donné.
Le code:
Private Sub Command1_Click()
Dim S1$
Dim S1$
S1 = Dir$("c:\Programmes\" & "xxx.txt", vbNormal)
If S1 = "xxx.txt" Then 'Le fichier existe
MsgBox "Le fichier ''" & NomFichier & "'' existe."
Else 'Le fichier n'existe pas
MsgBox "Le fichier ''" & NomFichier & "'' n' existe pas."
End If
End Sub |