Parcourir l'arborescence

Soyez le premier à donner votre avis sur cette source.

Vue 16 366 fois - Téléchargée 891 fois

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"

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Urgo
Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
1 -
Meme pire que nul, lamentable ! niveau 0.000000000000000001
leptidev
Messages postés
206
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2007
-
C nul

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.