Dim i As Integer
Sub rechercheDossiersVides()
'texté avec WinXP et Excel2002
Dim Racine As String
Application.ScreenUpdating = False
Racine = 'C:\\Documents and Settings\\michel\\dossier\\general\\excel'
ListFilesInFolder Racine, True
Application.ScreenUpdating = True
i = 0
End Sub
Sub ListFilesInFolder(SourceFolderName As String, IncludeSubfolders As Boolean)
' adapté de Ole P Erlandsen
'necessite d'activer la reference Microsoft Scripting RunTime
Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder, SubFolder As Scripting.Folder
On Error GoTo Fin
Set Fso = CreateObject('Scripting.FileSystemObject')
Set SourceFolder = Fso.GetFolder(SourceFolderName)
If IncludeSubfolders Then
For Each SubFolder In SourceFolder.subfolders
If SubFolder.Size = 0 Then
i = i + 1
Cells(i, 1) = SubFolder.Path
End If
ListFilesInFolder SubFolder.Path, IncludeSubfolders
Next SubFolder
End If
Fin:
End Sub