Discussion :

[pecheur]

Probleme pour faire des boucles imbiquees tout en utilisant
la methode Dir

cRep = Dir(cRepParam & "\*.*")
Do While (cRep <> "")
cRep2 = Dir(cRepParam & "\" & cRep & "\*.*")
Do While (cRep2 <> "")
cRep2 = Dir
Loop
cRep = Dir
Loop

comment fo faire pour ke ca marche ca ?

please help

[B-Pascal]

Si tu veux une arborescence principale et seulement la sous-arborescence de chacun des répertoires de l'arborescence, fait comme cela :

- met ton arborescence principale dans un tableau,
- parcours ensuite tout ton tableau pour chacun des éléments de ton tableau.

en gros évite les dir imbriqués car à chaque dir(..., tout est réinitialisé.

ok ?

[kamadji]

pecheur peut plus se connecter, je reponds pour lui :

non c pas bon, il veut parcourir plusieurs sous-sous repertoires et ainsi de suite sans savoir la profondeur de l'arborescence a l'avance...

merci pr lui

[pecheur]

ben le coup du tableau j'y avait deja panser

le prob c kan ta plus d'1 sous rep en fait la y'en a 4 alors faire a chaque niveau une boucle pour recuperer tout dans un tab c un peu galere et ca fait pa code des plus lisble pour ceux qui vont reprendre ca


si t'avait une autre astuce du genre je suis preneur

merci a +

[SpaceFrog]

Et avec ce bout de code ça devrait t'inspirer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim fso As New FileSystemObject 
Sub Main() 
    Dim fd As Folder, PathFolder As String 
    PathFolder = "C:" 
    Set fd = fso.GetFolder(PathFolder) 
    If fso.FolderExists(PathFolder) Then SearchFolder fd 
End Sub 
 
 
Sub SearchFolder(fld As Folder) 
    Dim f As File, SubFld As Folder 
    For Each f In fld.Files 
        Debug.Print f.Name 
    Next 
    For Each SubFld In fld.SubFolders 
        SearchFolder SubFld 
    Next 
End Sub

[pecheur]

Ben oui ke ca m'inspire avec ca je suis sauve

merci beaucoup

a+

[pecheur]

Bon je c ke je v paretre pour un trise
mais j'chui un peu nubbie avec vb

bon a la compilation
g un msg d'erreur "User Defined type not defined"
pour les objet de type FileSystemObject et pour Folder

la question a 100 points est
"c koi ki fo faire pour que vb reconnaisse ce type d'objet ???"

merci d'avance

[SpaceFrog]

Ajouter (menu Projet -> Référénces) Microsft Scripting Runtime.

[pecheur]

oki ca marche