probleme recursivite

Question

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 ???

jrivet · Answer

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

Renfield · Answer

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

cs_JMO · Answer

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

Probleme recursivite

3 réponses

Votre réponse

Discussions similaires