Parcourir l'arborescence

Télécharger le projet
Commenter

Description

Ce code permet de parcourir l'arborescence et de retourner sous forme de chaîne le chemin d'accés du fichier sélectionné.
Tout est dans le ZIP... (si j'arrive à le télécharger).

Source / Exemple : 


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

Conclusion :


Voilà ! C'est tout !
Merci de faire un détour par "http://www.chez.com/zog2002"
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.