Discussion :

[MartySalade]

Bonjour je cherche un moyen de supprimer le contenu d'un dossier.
Ce contenu est exclusivement des sous dossiers (vides ou non vides, impossible de savoir)

J'ai tenté de supprimer le dossier dans sa totalité puis de le recréer mais ce n'est pas une bonne méthode selon moi

Merci d'avance pour votre aide.
Cordialement,
Marty

[MarcelG]

Bonjour,

Tu peux procéder à la liste des fichiers et répertoires en les "tuant".

Ces méthodes sont précisées dans la FAQ Fichiers

[MartySalade]

Ce ne sont pas des fichiers mais des sous dossiers. Le lien que tu m'as envoyé montre bien comment boucler sur un dossier contenant des fichiers mais pas sur un dossier contenant des sous dossiers. De plus peut on utiliser Kill pour des dossier ?

[MarcelG]

OK.

Essaie plutôt

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
Option Explicit
 
Sub essai_supp_sous_rép()
 
Dim Objet_rép As Object
Dim lerépertoire_principal As String
 
lerépertoire_principal = "lerépertoirecontenantlessousrépertoiresàsupprimer"
lerépertoire_principal = lerépertoire_principal & Application.PathSeparator
 
Set Objet_rép = CreateObject("Scripting.FileSystemObject")
 
Dim sous_rép As Object
 
For Each sous_rép In Objet_rép.GetFolder(lerépertoire_principal).SubFolders
        sous_rép.Delete
Next
 
Set Objet_rép = Nothing
 
End Sub

[MartySalade]

Merci beaucoup ça fonctionne parfaitement !