prb balayge dossier et sous-dossier

[fanoux]

Bonjour a tous,

j'ai un petit probleme en ce qui concerne le balayage d'un dossier et des sous dossier que contient ce dossier.

Ce que je souhaite faire c'est tout d'abord trouver les nom de tous les dossier d'un fichier principal, puis récupérer les noms de tous les sous dossiers des sous dossier. j'espere avoir été clair?

Voici mon code:

Set f = fs.GetFolder(Trim(RacineBox.Value) & '\\' & Trim(AnnéeBox.Value)) //accede au fichier principal
Set fc = f.Files //doit reperer le nom des sous dossiers
For Each f1 In fc
s = f1.Names//récupère le nom de tous les sous dossiers
Set f2 = fs.GetFolder(Trim(RacineBox.Value) & '\\' & Trim(AnnéeBox.Value) & '\\' & Trim(s)) //accède au sous-sous dossier
Set fd = f2.Files //repere les noms de tous les sous sous dossiers

G utilisé le déboggage et le prb c'est que il s'arrete a fc? alors que des dossiers existent mais ce ne sont pas des *.xls

Si qq'un a une idée toutes aide sera la bienvenue
Merci.

 

[Creepy]

Bonjour,

Regarde dans le post Barbapastruc Zip to Xld.

Tu y trouveras une de mes sources.

Dans le code il y a un module de recherche dans repertoires et sous repertoires.

Tu trouveras peut être ton bonheur !

++

Creepy

 

[fanoux]

Merci pour l'info mais ca ne marche pas si tu as une eutre idée?

 

[Creepy]

RE all,

Peux tu mettre ton code en Pj ?

Merci

Creepy

 

[fanoux]

Bonjour a tous,

Voici la partie du code qui pose prb, je ne c vraiment pes d'oupeut venir le prb...
merci [file name=code_20050711100541.zip size=243]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/code_20050711100541.zip[/file]