Dossiers vides

[Snake]

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

 

[Snake]

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

 

[Snake]

Bonjour,

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


Bonne journée