Demande de valider la référence "Microsoft Scripting Runtime"

Inspiré de l'aide en ligne
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
19
20
21
22
23
Sub ListerLesSsRepEtLeursFichiers() '(Chemin) 'chemin peut être passé en paramètres
    Dim fso, ListR, sRep, ListF, Rep, LesReps, fich, LesFichs
    Set fso = CreateObject("Scripting.FileSystemObject")
    Chemin = "c:\Program files"
    Set ListR = fso.GetFolder(Chemin)
    Set sRep = ListR.SubFolders
    For Each Rep In sRep
        LesReps = LesReps & Rep.Name
        LesReps = LesReps & vbCrLf
        Set ListF = Rep.Files
        For Each fich In ListF
            LesFichs = LesFichs & fich.Name
            LesFichs = LesFichs & vbCrLf
        Next
        If LesFichs <> "" Then
              MsgBox LesFichs, 0, "Fichiers du répertoire " & Rep.Name
          Else
              MsgBox "Il n'y a pas de fichier dans ce répertoire !", 0, "Répertoire " & Rep.Name
        End If
        LesFichs = ""
    Next
    MsgBox LesReps, 0, "Répertoires du dossier " & Chemin
End Sub