PARCOURIR L'ARBORESCENCE

Private Sub Form_Load()         'AU DEMARRAGE :
Drive1.Drive = "C:"             'choix du lecteur
Dir1.Path = "C:\Mes documents"  'choix de l'arborescence
File1.Path = Dir1.Path          'affiche les fichiers contenus dans "Dir1.path"
End Sub

Private Sub Drive1_Change()     'QUAND ON CHANGE DE LECTEUR :
Dir1.Path = Drive1.Drive        'on met à jour l'arborescence
End Sub

Private Sub Dir1_Change()       'QUAND LE CHEMIN CHANGE
File1.Path = Dir1.Path          'on met à jour la fenêtre des fichiers
End Sub

Private Sub File1_Click()
If Len(Dir1.Path) < 4 Then
  Label1.Caption = Dir1.Path & File1.FileName
ElseIf Len(Dir1.Path) >= 4 Then
  Label1.Caption = Dir1.Path & "\" & File1.FileName
End If
End Sub