Trouver la présence d'un répertoire ou fichier

Commenter

Contenu du snippet

Pas grd chose à dire lol tt est dans le titreuu :)
Méthode simple est efficace.

Source / Exemple : 


1 > Trouver la présence d'un Répertoire
_____________________________________

Créez dans une form, un bouton et nommez-le "repertoire" puis collez les lignes suivantes: 

Private Sub repertoire_Click()
'on declare la variable
   Dim chemin As String 
   chemin = "c:\windows" 
'on fouille si le dossier existe
   If Dir(chemin, vbDirectory) <> "" Then 
        MsgBox " Le répertoire " & " "" " & chemin & " "" " & " existe bien !", 64, "Existe-t-il?" 
   Else 
        MsgBox " Le répertoire " & " "" " & chemin & " "" " & " L'existe pas ton répertoire !", 32, "Existe-t-il?" 
   End If 
   End 
End Sub

1 > Trouver la présence d'un Fichier
_________________________________

Créez dans une form, un bouton et nommez-le "fichier" puis collez les lignes suivantes: 

Private Sub fichier_Click()
'on declare la variable
   Dim chemin As String 
   chemin = "c:\autoexec.bat"
'on fouille si le fichier existe
   If Dir(chemin, vbNormal Or vbReadOnly Or vbHidden Or vbSystem Or vbArchive) <> "" Then 
        MsgBox " Le fichier " & " "" " & chemin & " "" " & " existe bien !", 64, "Existe-t-il?" 
   Else 
        MsgBox " Le fichier " & " "" " & chemin & " "" " & " L'existe pas ton fichier !", 32, "Existe-t-il?" 
   End If 
   End 
End Sub
__________________________________

Voilou voilou Bien à vous - Angie

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 (AngelWide92)