Discussion :

[VictoriusDan]

Bonjour

J'ai un petit problème avec une procédure... En fait ce que j'ai besoin c'est une procédure qui vérifie chaque dossier dans un répertoire donné. Si le dossier est vide (peut contenir des sous-dossiers aussis vides) elle doit effacer le dossier et les sous-dossier qui si trouve. Par la suite elle passe au dossier suivant et exécute la même commande jusqu'à ce que le dernier dossier est été évaluer.

J'ai fait des procédure beacoup plus compliquer dans le passer mais aujourd'hui je suis un peut bousculer dans mon horraire et j'ai besoin de cette procédure pour hier et plus de 2 autres sur lesquelle je travail... Donc si vous pouvez m'aider j'apprécirais beaucoup.

Merci A+

Daniel

[Pierre Fauconnier]

Bonjour

L'algo le plus simple est le récursif.

Principe:
- Appel de procédure
- On charge une collection avec tous les résultats de DIR via une boucle. Comme DIR avec VbDirectory renvoie aussi . (dossier courant) et .. (dossier parent du dossier courant), on ne les charge pas dans la collection.
- Si la collection est vide, alors, le dossier est vide et on le supprime
- S'il n'est pas vide, on boucle sur les éléments de la collection
- On teste l'attribut de l'élément
- Dossier? On relance la même procédure (= appel récursif) avec le nouveau chemin

Voici le code qui fait cela. La procédure SupprimerDossiersVides requiert en paramètre le chemin du dossier "racine" que l'on veut nettoyer, et est appelée par la procédure Nettoyage

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub Nettoyage()
  SupprimerDossiersVides "d:\données\Test Vide"
End Sub
 
Function SupprimerDossiersVides(CheminDepart As String) As Boolean
  Dim oCollection As New Collection
  Dim SousDossier As String
  Dim Valeur As String
  Dim Compteur As Long
 
  ' Chargement de la collection
  Valeur = Dir(CheminDepart & "\*.*", vbDirectory)
  If Valeur = "" Then Exit Function
  Do While Valeur <> ""
    If (Valeur <> "." And Valeur <> "..") Then _
      oCollection.Add CheminDepart & "\" & Valeur, CheminDepart & "\" & Valeur
    Valeur = Dir
  Loop
 
  ' Collection vide = dossier vide => suppression
  If oCollection.Count = 0 Then
    RmDir CheminDepart
    SupprimerDossiersVides = True
    Exit Function
  End If
  ' Si pas vide (test implicite), on boucle
  ' avec test si dossier
  ' Si dossier, on (ré)appelle la procédure avec le nouveau chemin
  For Compteur = 1 To oCollection.Count
    Valeur = oCollection(Compteur)
    If (GetAttr(Valeur) And vbDirectory) Then
      Do While SupprimerDossiersVides(Valeur) = True
        SupprimerDossiersVides = SupprimerDossiersVides(CheminDepart)
      Loop
    End If
  Next
End Function