probleme recursivite

Bonjour,

j'utilise une boucle pour visualiser les dossiers et sous dossiers sous ma racine D: :

 Set Fsf = CreateObject("Scripting.FileSystemObject")
    Set objrepInit = Fsf.GetFolder(Chemin)
    Set oSousRep = objrepInit.subfolders

    For Each oSousRep In objrepInit.subfolders
        MsgBox oSousRep.Name
    Next oSousRep

Le probleme c'est qu'il ne me fait pas apparaitre tous mes sous dossiers ???

Salut,
Pourquoi ne pas continuer l'autre post?

cette ligne devrait etre en commentaire Set oSousRep = objrepInit.subfolders

Que se passe t il alors est ce qu'il en affiche un seul? ou est ce que ca dépend des fois.

@+: Ju£i€n
Pensez: Réponse acceptée

ne pas utiliser FSO :
CreateObject("Scripting.FileSystemObject")

hors VBS

sinon, ca t'affiche là les dossiers de 'Chemin'.
pas les sous dossiers de ces dossiers...

pour cela, te faudra avoir une approche récursive

 Bonjour à tous,

En vbs, donc avec fso !

Option Explicit
Dim objFso, objRootFolder
Dim strRootPath, strSubFolder, strResult

strRootPath = "D:\"

Set objFso = CreateObject("Scripting.FileSystemObject")
Set objRootFolder = objFso.GetFolder(strRootPath)

Call SearchFolders(objRootFolder)

MsgBox strResult,,"Liste Répertoires et sous-répertoires"

Set objRootFolder = Nothing
Set objFso = Nothing

Sub SearchFolders(ArgFolder)
    For Each strSubFolder In ArgFolder.SubFolders
        On Error Resume Next  ' permission
        Call SelectFolder(strSubfolder)
        Call SearchFolders(strSubfolder)
    Next
End Sub

Sub SelectFolder(ArgFolder)
    strResult = strResult &vbCr& ArgFolder
End Sub


jean-marc