Détermination de l'existance d'un fichier

Commenter

Contenu du snippet

Recherche si un fichier existe.
Un code simple mais efficace!!

Source / Exemple : 


Dim Str As String, StrFile As String
Dim Pos As Integer, Posi As Integer

'Initialise le début de la recherche
Posi = 1

Str = InputBox("Entrer le chemin du fichier", "Ce fichier existe-t-il?")

'Recherche de la position du dernier "\"
While Posi <> 0
    Pos = Posi
    Posi = InStr(Pos + 1, Str, "\", 0)
Wend

'Affichage du nom de fichier sans le chemin
StrFile = Right(Str, (Len(Str) - Pos))

'Détermination de l'existance du fichier
If Dir(Str) <> vbNullString Then
    MsgBox "Le fichier " & StrFile & " existe", vbInformation, "Existant"
Else
    MsgBox "Le fichier " & StrFile & " n'existe pas", vbInformation, "Inexistant"
End If

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (phantom_2005)