Recherche (fichier-dossier)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 024 fois - Téléchargée 29 fois

Contenu du snippet

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

A voir également

Ajouter un commentaire

Commentaires

amteur
Messages postés
40
Date d'inscription
jeudi 15 juin 2006
Statut
Membre
Dernière intervention
16 mars 2009

c'est pourri tous cela
Mais Merci ^^
cs_PROGRAMMIX
Messages postés
1134
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011

Ta présentation d'utilisation de ton code est incomplète...
Relis-toi "On Ouvre une form , et un boutton caption = recherche"
Et ton code utilise 1 DriveBox, 1 TextBox, et 1 Label.

Le code existe déjà sur le site en différente version...

1/10

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.