Discussion :

[lucazzo]

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 :

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
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.

[pgz]

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".

Le code que tu as montré tente de supprimer tous les sous-dossiers et pas seulement ceux qui contiennent un fichier particulier.

Bien sûr tu ne peux supprimer un dossier qui contient un fichier ouvert.


PGZ