lister un repertoire

Question

salut
j ai besoin de savoir comment on fait pour lister tout les fichiers d une extension donnée (par exemple :*.arm) qui se trouvent dans un repertoire dont je connais l 'adresse. attention, je ne veux pas utiliser de litview ou treeview... juste avec du code
merci a mon sauveur qui se verra remettre non pas un, mais DEUX paquets de bonbons à la menthe! [8P] ( et oui, je fais une promo ^^ )
merci bcp
++

ShareVB · Answer

salut

dim Fichier as string
fichier = mid$(chemin & "*.arm") 'chemin se termine par ""
do
debug.print fichier
fichier = mid$
loop while fichier <> ""

voila

ShareVB

nhervagault · Answer

Pour lister le contenu d'un repertoire le plus simple c'est d'utiliser le filesystemobject

refernece runtime scripting

Sub essai()
    Dim fso As New FileSystemObject
    Dim fol As Folder
    Dim files As files
    Dim f As File
    Dim d As Folder
    Dim sf As Folders
    
    
    Set fol = fso.GetFolder("c:")
    Set files = fol.files
    For Each f In files
        Debug.Print f.Name
    Next
    Set sf = fol.SubFolders
    For Each d In sf
        Debug.Print d.Name
    Next
    
        
End Sub

cs_psycho · Answer

salut
merci pour votre aide.
par contre, sharevb, ton code ne marhce pas chez moi : g deux erreurs qui se trouvent au niveau des mids...

ShareVB · Answer

salut

excuse moi je comprends mem pas pourquoi j'ai ecrit mid$
en fait c dir$ et pas mid$

désolé

ShareVB

cs_psycho · Answer

oui, g compris ca apres avoir cherché encore un peu dans la doc de msdn ;)
merci bien en tout cas...

Lister un repertoire

5 réponses

Discussions similaires