Suppression de folder dans arborescence
Bonsoir,
J'ai un dossier qui contient plus de 1000 dossier. J'aimerais faire une petite moulinette pour qu'il me supprimer le dossier si ce deriner contient un fichier nomé "décompte".
Voici ce que j'ai actuellement :
Code:
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
| Private Sub CommandButton1_Click()
Const DOSSIER = "C:\...\New Folder (3)"
Set oFso = CreateObject("Scripting.FileSystemObject")
Parcourir oFso.GetFolder(DOSSIER)
End Sub
Sub Parcourir(oDossier)
For Each oSousDossier In oDossier.Subfolders
Parcourir oSousDossier
Set oFso = CreateObject("Scripting.FileSystemObject")
oFso.deletefolder oSousDossier
Next
For Each oFichier In oDossier.Files
chemin = oDossier
reponse = Dir(chemin & "\*décomp*.pdf")
If reponse = "" Then
MsgBox ("NO")
Else
MsgBox ("OK")
End If
Next
End Sub |
J'ai l'impression que je désire supprimer le dossier dans lequel je suis actuellement, et c'est pour cela qu'il me donne cette erreur : Permission denied" au moment ou il passe sur "oFso.deletefolder oSousDossier" qui se trouve dans la procédure Parcourir.
Merci de votre aide.
