Lister fichier des sous repertoires

Creepy · 17 Mars 2005

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 · 17 Mars 2005

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 · 17 Mars 2005

bonjour Creepy , bonjour Romuald

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

Lien supprimé

bonne soiree
MichelXld

Lister fichier des sous repertoires

Creepy

XLDnaute Accro

Pièces jointes

Romuald

Guest

MichelXld

XLDnaute Barbatruc

Discussions similaires

Lister fichier des sous repertoires

Creepy

XLDnaute Accro

Pièces jointes

Romuald

Guest

MichelXld

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency