RECHERCHE (FICHIER-DOSSIER)

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