Discussion :

[lio33]

Bonjour,

Savez-vous s'il existe une méthode simple en ACCESS VBA pour supprimer tout le contenu d'un dossier ?
Sachant que le dossier peut contenir des fichiers et des sous-dossiers sans limitation de nombre et d'imbrication.

Est-ce possible sans avoir à parcourir toute l'arborescence présente en dessous du dossier à supprimer ?

J'ai cherché mais ce que je trouve essentiellement ne concerne que suppression des fichiers et pas le traitement d'une arborescence complète.

Merci d'avance pour vos idées et ou informations.

[ClaudeLELOUP]

Bonjour,

Voici une sub qui fait l'affaire.


Vois la remarque importante au 2° (mettre en commentaire si tu veux garder l'arborescence après avoir supprimé les fichiers).

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
Public Sub VidangeRep(LeRepertoire As String)
    Dim FSO As Scripting.FileSystemObject
    Dim sRep As Scripting.Folder
    Dim sSubRep As Scripting.Folder
    Dim sFichier As Scripting.File
    Set FSO = New Scripting.FileSystemObject
    Set sRep = FSO.GetFolder(LeRepertoire)
    '1° Supprimer tous les fichiers
    For Each sFichier In sRep.Files
       sFichier.Delete
    Next sFichier
    'Récursivité pour les sous-répertoires
    For Each sSubRep In sRep.SubFolders
        VidangeRep sSubRep.Path
    Next sSubRep
    '2°Supprimer les répertoires
    FSO.DeleteFolder LeRepertoire, True  'Mets en commentaire si tu veux garder l'arborescence
    'Libérer
    Set sRep = Nothing
    Set FSO = Nothing
End Sub

P.-S. N'oublie pas d'ajouter la bibliothèque à ton projet :

[lio33]

Je te remercie beaucoup.
Faute de solution toute faite j'avais développé ma propre fonction récursive, un peu moins concise !