comment lister puis supprimer recursivement

Question

Salut j'utilise ce code pour lister récursivment mes fichiers et dossiers

Sub teste()
AfficheListeFichier ("c:\Mes Documents")
AfficheListetout ("c:\Mes Documents")
End Sub

Sub AfficheListetout(specdossier)
'Procedure récursive qui
'Affiche tous les Dossiers et les Sous Dossiers
'Contenu dans specdossier
'ainsi que les Fichiers
Dim fs, f, f1, s, sf
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(specdossier)
Set sf = f.subfolders
For Each f1 In sf
s = specdossier & f1.Name & ""
MsgBox (s)
AfficheListeFichier (s)
AfficheListetout (s)
Next

End Sub

Sub AfficheListeDossier(specdossier)
'Procedure récursive qui
'Affiche tous les Dossiers et les Sous Dossiers
'Contenu dans specdossier
Dim fs, f, f1, s, sf
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(specdossier)
Set sf = f.subfolders

For Each f1 In sf
s = specdossier & f1.Name & ""
MsgBox (s)
AfficheListeDossier (s)
Next

End Sub

Sub AfficheListeFichier(specdossier)
'Affiche tous les Fichiers du Dossiers specfichiers
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(specdossier)
Set fc = f.Files
For Each f1 In fc
s = s & f1.Name
s = s & vbCrLf
Next
If s = "" Then
MsgBox ("Aucuns Fichiers")
Else
MsgBox s
End If

End Sub

Mais j'aimerais également supprimer tous les dossier vides contenus dans le répertoire donné
comment dois-je faire pour insérer cette fonction dans le code.

Merci

cs_rene38 · Answer

Utilise la méthode DeleteFolder

cs_rene38 · Answer

Attention ! supprime les dossiers vides ou non

kenses · Answer

Ok merci pour ces réponses mais la fonction deletefolders ne me convient pas car comme tu le dis, elle supprime tous les dossier sans regarder si ceux-ci sont vides ou non. :sad) 

j'ai déja intégré la fonction deletefiles qui fonctionne très bien.
En gros il faudrais un trucs comme Rmdir mais qui fonctionne de manière recussirve.

 :question)

kenses · Answer

> Ok merci pour ces réponses mais la fonction deletefolders ne me convient pas car comme tu le dis, elle supprime tous les dossiers sans regarder si ceux-ci sont vides ou non. :sad) 
> 
> En gros il me faudrais un trucs comme Rmdir mais qui fonctionne de manière recursive.

Comment lister puis supprimer recursivement

4 réponses

Discussions similaires