Dossiers vides

Bonjour à tous,

j'ai un petit problème, je cherche à trouver tous les dossiers vides se trouvant dans un repertoire de mon disque dur et à les lister dans une feulle excel.
Est-ce possible via vba?

Si ca ne l'est pas, existe-t-il un autre moyen pour les trouver?

Merci d'avance

Bonne journée à tous

[MichelXld]

bonjour

j'espere que cet exemple répondra à ta demande

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

bonne soiree
MichelXld

Bonjour,

tout d'abord merci de ton aide, j'ai juste un problème tout bête de débutant comment on active la reference Microsoft Scripting RunTime?

:unsure:

Merci d'avance

Bonne soirée

[MichelXld]

bonjour

tu vas dans l'editeur de macros
Menu outils
References
dans la liste coches la ligne 'Microsoft Scripting RunTime'
cliques sur OK pour valider


bonne soiree
MichelXld

Bonjour,

Merci beaucoup ça marche le feu de dieu....


Bonne journée