Supprimer tous les contenus d'un répertoire créé sous VBA

[Legendre]

Bonjour,
Je souhaite supprimer un répertoire et son contenu (plusieurs dossiers avec diverses extensions).
Ce répertoire a été initialement créé en renseignant "oui" dans le ComboBox31 et doit être supprimé en remplaçant "oui" par "non";
Cependant, ce code fonctionne partiellement quand il n'y a pas de contenus dans le répertoire.
Quelle instruction dois-je rajouter en plus du "RmDir"pour que ce code fonctionne en présence de contenus (*) dans le répertoire à supprimer ?
(*) .txt; .docx;.mp4; .xlsx, .dpm......
Merci,
Mon code est le suivant :
--------------------------------------------------------------------------------------------
'Créer automatiquement le répertoire Numéro du Mode Si le champ est égal à "OUI"
Dim NomFic As String
Dim Rep As String
Dim Nom As String
If ComboBox31.Value = "OUI" Then
Application.DisplayAlerts = Falaise
Rep = Workbooks(ActiveWorkbook.Name).Path & "\Enreg\"
NomFic = ComboBox1.Value
Nom = Rep & NomFic
On Error Resume Next
MkDir Nom
Else
'Supprimer automatiquement le répertoire Numéro du Mode Si le champ est égal à "NON"
If ComboBox31.Value = "NON" Then
Rep = Workbooks(ActiveWorkbook.Name).Path & "\Enreg\"
NomFic = ComboBox1.Value
Nom = Rep & NomFic
On Error Resume Next
RmDir Nom
End If
End If
ApplicationScreenUpdating = True
------------------------------------------------------------------------------------------------------------
Merci

Jacques

 

[Staple1600]

Re

la version oneliner

Sub Oneliner(vPath As String)
CreateObject("Scripting.FileSystemObject").DeleteFolder vPath
End Sub
Sub test()
CreateObject("Scripting.FileSystemObject").DeleteFolder "F:\toto\titi"
End Sub

A tester avec prudence
Je décline toute responsabilité en cas de perte de données.

NB: ne fonctionne pas sur Mac, tout comme le code de patrick

 

[soan]

ah oui, c'est très bien aussi, ta version oneliner !!!

soan

 

[Staple1600]

Re

=>soan
J'en sais rien.
Je ne l'ai évidemment pas testé
cf message#9, dernier paragraphe.

 

[patricktoulon]

re
oui c'est a tester la derligne ,car delete l'object argumenté en string j'en suis moins sur

en one line j'aurais codé comme suis

Sub DeleteFolder()
      CreateObject("Scripting.FileSystemObject").GetFolder("C:\Users\polux\DeskTop\Nouveau dossier").Delete
End Sub

 

[Staple1600]

Re

=>patricktoulon
Je te laisse tester ma version si tu le souhaites
Moi, je supprime mes fichiers avec mon clavier
CTRL+A SUPPR ENTER

 

[soan]

bon, ben alors, j'vais attendre d'avoir une occasion de détruire
un dossier et tous ses sous-répertoires pour tester ! ... et avec
la plus grande prudence nécessaire !

soan

 

[soan]

Moi, je supprime mes fichiers avec mon clavier
CTRL+A SUPPR ENTER

moi aussi, je fais comme toi ! et même, quand j'en suis
absolument sûr, je fais : CTRL+A MAJ+SUPPR ENTER

soan

 

[patricktoulon]

et moi je souffle un peu fort dessus

 

[soan]

??? j'ai pas compris ! tu souffles fort comme pour éteindre les bougies
d'un gâteau d'anniversaire ? comme le loup qui essaye de faire
s'envoler la maison des 3 p'tits cochons ? comme une baleine
dont on voit le jet qui s'élève au-dessus de l'eau ? autre ?

soan

 

[patricktoulon]

oui oui c'est ca et si j'y arrive pas j’appelle la marmotte avec un coup de papier alu c'est bon

 

[soan]

ah, la marmotte avec son papier d'alu, ça oui, j'ai compris !

soan

 

[Legendre]

Re

=>Jacques
C'est toi qui fait de l'humour, pas moi.
La falaise et dans le code VBA de ton premier message.
Je ne pouvais pas ne pas le relever

Merci à vous