Lister fichier des sous repertoires

[Creepy]

Bonjour à tous,

Afin de me faciliter la vie, j'ai fait ce petit programme qui me permet de lister les fichiers avec un type d'extension choisi dans un repertoire choisi.

Cependant dans ma Userform, j'ai mis une case à cocher 'inclure les sous répertoires' mais j'avoue que je n'arrive pas à ecrire le code pour aller chercher les fichiers y compris dans les sous repertoires.

L'exemple sera peut être plus parlant.

Merci d'avance de votre aide

Creepy [file name=Travail.zip size=25634]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Travail.zip[/file]

 

[Romuald]

Essaie d'utiliser l'objet FileSystemObject pour parcours tes répertoires. Il ne te reste plus qu'à rédiger une procédure récursive pour parcourir toute l'arborescence.

Désolé de ne pas rentrer ds les détails, mais le code doit ressembler à un truc du genre :

sub getFiles(sFolderPath)

' Les fichiers
for each fFile in fso.getfolder(sFolderPath).files
debug.print 'fichier : ' & fFile.name
next

'les sous-répertoires
for each fFolder in fso.getfolder(sfolderPath).subfolders
'Appel récursif
getFiles fFolder.path
next

end sub

 

[MichelXld]

bonjour Creepy , bonjour Romuald

j'espere que ce lien répondra à ta demande

Lien supprimé


bonne soiree
MichelXld