listbox listant des fichiers d'un rep contenant un sous-rep

Question

bonjour, je voudrais afficher dans une listbox, la liste de tt les fichiers d'un repertoire (sous-repertoire compris) exemple, j'ai l'arboresence suivante (MesAutresDocs est un sous-repertoire de MesDocs) :

MesDocs/
..........readme.txt
..........pas_readme.txt
..........vbfrance_c_de_la_balle.jpg
..........MesAutresDocs/
............................rapUS.mp3
............................techno2bucheron.mp3
............................vieux_film2boule.mpg
..........c_pa_marrant.bmp

Dans ma listbox, je veux avoir :

readme.txt
pas_readme.txt
vbfrance_c_de_la_balle.jpg
rapUS.mp3
techno2bucheron.mp3
vieux_film2boule.mpg
c_pa_marrant.bmp

voilà merci d'avance !!!

Renfield · Answer

ok , dans ta feuille, ajoutes un bouton, une listbox, et un textbox, pour specifier le chemin de depart.

ensuite, fait Projet > References , et ajoutes la reference a "Microsoft Scripting Runtime".

et voila, il ne te reste plus qu'a faire copier coller de ce qui suit :


Option Explicit

Dim FSO As New FileSystemObject

Private Sub Command1_Click()
    List1.Clear
    ListerFichiers Text1.Text
End Sub

Sub ListerFichiers(Path As String)
    Dim Folder As Folder
    Dim File As File
    
    Set Folder = FSO.GetFolder(Path)
    For Each File In Folder.Files
        List1.AddItem File.Name
    Next File
    For Each Folder In FSO.GetFolder(Path).SubFolders
        ListerFichiers Folder.Path
    Next Folder
End Sub


ListerFichiers est ce qu'on appelle une procedure recursive : elle s'appelle elle-même , parcourant chaque sous dossiers, et chaque sous dossiers, et aisin de suite, ajoutant au fur et a mesure les fichiers rencontrés...

By Renfield

[mailto:thomas_reynald@msn.com mailto:thomas_reynald@msn.com]

Aucune touche n'a été blessée lors de la saisie de ce texte.......... ;)

cs_Pesmerga · Answer

merci.... j'ai pas encore essayer mais au moins g une reponse (lol)

cs_Pesmerga · Answer

maintenant g un autre pb...
car en faite, apres avoir, effectué l'operation sur les fichiers.. je souhaite faire un teste :

if (FileSystemDate ("c:\MesDocs" + list1.listcount(i)) = date then 
..blablabla

le pb, c ke certain fichiers, on un autre chemin d'accès...(par exemple : c:\MesDocs\MesAutresDocs)

mon test, ne marche plus... COMMENT REGLER CE PROBLEME !!!

Listbox listant des fichiers d'un rep contenant un sous-rep

3 réponses

Discussions similaires