Windows 7 - Débogage

BrunoM45 à dit:

Bonjour Jorisphi

Je ne peux pas t'apporter de solution, mais un élément de réponse 😉

Avec Seven, c'est un problème de droits d'accès
Tu peux essayer comme ça

Code:

Sub ListeArborescence(Dossier As String)
Dim fs, sousdoss
    Set fs = CreateObject("Scripting.FileSystemObject")
    [B][COLOR=blue]On Error Resume Next[/COLOR][/B]
    For Each sousdoss In fs.getfolder(Dossier).subfolders
        ReDim Preserve ListeDoss(1 To UBound(ListeDoss) + 1)
        ListeDoss(UBound(ListeDoss)) = sousdoss.Path
        ListeArborescence sousdoss.Path
    Next sousdoss
    [B][COLOR=blue]On Error GoTo 0
[/COLOR][/B]    Set fs = Nothing
End Sub

A+

Cliquez pour agrandir...