Titre du sujet : Re: suppression dossier vide par Mytå le 27/02/2012 02:23:55
Re MyDearFriend, Slijack et le forum.
Une solution de Banzai64 basé sur un code du Site Excelabo
Option Explicit
Dim Ligne As Long
Sub RechercheFichiers()
Dim Chemin As String
Dim Ws As Worksheet
Dim I As Integer
Dim Fso As Object
Dim Dossier_Principal
Dim FdFolder As FileDialog
Set FdFolder = Application.FileDialog(msoFileDialogFolderPicker)
With FdFolder
If .Show = -1 Then ' Clic sur Ok
Chemin = .SelectedItems(1)
Else ' Clic sur Annuler
Exit Sub
End If
End With
Set FdFolder = Nothing
Columns("A:B").Clear
Ligne = 0
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Dossier_Principal = Fso.getfolder(Chemin)
Lit_Dossier Dossier_Principal
Columns("A:B").AutoFit
End Sub
Sub Lit_Dossier(ByRef Dossier)
Dim Rep As Object
For Each Rep In Dossier.SubFolders
Lit_Dossier Rep
Next
On Error Resume Next
Ligne = Ligne + 1
Range("A" & Ligne) = Dossier.Path
On Error Resume Next
RmDir Dossier.Path
If Err.Number = 0 Then
Range("B" & Ligne) = "Effacé"
Else
Range("B" & Ligne) = "Non effacé"
End If
On Error GoTo 0
End Sub
Remove Directory (RmDir)
- Commande interne DOS, elle permet de supprimer un répertoire vide.
Mytå
|