bonjour

je cherche a cree un bout de script (qui en rejoindra un autre plus tard )

pour effacer tous les dossier vides d'un repertoire donné

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
 
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")
ShowSubFolders FSO.GetFolder("d:\script")
 
 
Sub ShowSubFolders(Folder)
 
    For Each Subfolder in Folder.SubFolders
        If Subfolder.Size = 0 Then
        objFSO.DeleteFolder Subfolder
        End If
        ShowSubFolders Subfolder
    Next
End Sub
ce code efface bien un dossier vide
jai rajouté sa pour rapeller la fonction

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
For Each Subfolder in Folder.SubFolders
        ShowSubFolders
 
        next
mais visiblement sa ne marche pas quelqun aurait une idée ?,

merci d'avance