Sujet Précédent Sujet Suivant

URGENT : listbox, fichiers et sous repertoires

cs_Pesmerga Messages postés 9 Date d'inscription mercredi 26 décembre 2001 Statut Membre Dernière intervention 25 juin 2003 - 25 juin 2003 à 11:52
cs_Pesmerga Messages postés 9 Date d'inscription mercredi 26 décembre 2001 Statut Membre Dernière intervention 25 juin 2003 - 25 juin 2003 à 17:56
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
MesAutresDocs/rapUS.mp3
MesAutresDocs/techno2bucheron.mp3
MesAutresDocs/vieux_film2boule.mpg
c_pa_marrant.bmp

voilà merci d'avance !!!

2 réponses

Réponse 1 / 2
cs_Gendarmette Messages postés 104 Date d'inscription mardi 27 mai 2003 Statut Membre Dernière intervention 14 janvier 2004
25 juin 2003 à 12:13
Essaie d'intégrer ça à ton code: 

Public oFs As Scripting.FileSystemObject
Public oFolder As Scripting.Folder
Public oFile As Scripting.File

Private Sub Rechercher_Fichiers(sFolder As String)
    Set oFolder = oFs.GetFolder(sFolder)
    For Each oFile In oFolder.Files
        List1.AddItem oFile.Name
    Next
End Sub

Dim sFolder As String
Set oFs = CreateObject("Scripting.FileSystemObject")
sFolder = "Chemin"
Rechercher_Fichiers sFolder


N'oublie pas de cocher Microsoft Scripting Runtime dans le menu Projet, Références.

Voilà!

>:) Gendarmette >:)
0
Réponse 2 / 2
cs_Pesmerga Messages postés 9 Date d'inscription mercredi 26 décembre 2001 Statut Membre Dernière intervention 25 juin 2003
25 juin 2003 à 17:56
MERCI BEAUCOUP
0
Rejoignez-nous