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
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.