On Ouvre une form , et un boutton caption = recherche
Recherche un fichier ou dossier avec une seul Boucle
If Dir (chemain) <> "" Then
MsgBox........
else
MsgBox.......
end if
Source / Exemple :
Private Sub recherche_Click()
'on declare la variable
Dim chemin As String
chemin = Drive1 + ("\") + Text1
'on cache label si text ni rien ecrie dedant
If Text1 = "" Then
Label1.Visible = False
End If
'on fouille si le dossier ou le fichier existe
If Dir(chemin) <> "" Then
Label1 = "Fichier Détecté"
Else
Label1 = "Fichier Non Détecté"
End If
' on mettre une information
If Text1 = "" Then
MsgBox "Taper votre fichier Rechercher ", vbCritical, " Information "
End If
End Sub
Conclusion :
s'il ya de bugs , ya l'espace de comentaire , :p
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.