FileListBox::Un ptit coup de pouce svp!!

Question

Voila dans mon formload je voudrai appeler des fichiers dans des sous-dossiers sur une FileListBox.

Voici le code que j'essaie deseperement d'appliquer (aucuns fichiers n'apparait):

Private Sub Form_Load()
File1.Pattern = "*.mp3"

Dim fs, f, sf
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:	emp")
Set sf = f.subfolders

For Each f In sf
File1.Path = "C:	emp" & f.Name & ""
Next

End Sub

Merci pour votre aide (je debute...);

Alan71 · Answer

utiliz une fonction résursive, ki fouille répertoire par répertoire. J'en avé une, mé mon DD est mort !

 >:)  ::Alan USSE::  >:)

c51greedo · Answer

Ben faut la refaire la recursive alors Alan71 !
Ca doit etre plus ou moins ça.

Function enumere(repertoire As String)
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(repertoire)
   Set fc = f.subfolders
   For Each rep In fc
        enumere CStr(rep)
        frm_liste.liste.Refresh
   Next
End Function

et tu fais un : 
call enumere("c:	emp")

Greedo

Alan71 · Answer

LOL !

moi, le fso, j'aime pas trop... La mienne été pas mal et rapide, à grand coup de Dir

 >:)  ::Alan USSE::  >:)

FileListBox::Un ptit coup de pouce svp!!

3 réponses

Discussions similaires