Sub compterDossiersFichiers(SourceFolderName As String)
Dim Fso As Object, SourceFolder As Object, SubFolder As Object
Dim i As Integer
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder(SourceFolderName)
i = 1
Cells(i, 1) = SourceFolder.Name
Cells(i, 2) = SourceFolder.Files.Count
Cells(i, 3) = SourceFolder.Size
For Each SubFolder In SourceFolder.SubFolders
i = i + 1
Cells(i, 1) = SubFolder.Name
Cells(i, 2) = SubFolder.Files.Count
Cells(i, 3) = SubFolder.Size
Next SubFolder
End Sub
Sub Test()
compterDossiersFichiers "C:\Program Files"
End Sub