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

Legendre · 6 Décembre 2020

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 · 6 Décembre 2020

Re

la version oneliner

VB:

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 · 6 Décembre 2020

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

soan

Staple1600 · 6 Décembre 2020

Re

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

patricktoulon · 6 Décembre 2020

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

VB:

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

Staple1600 · 6 Décembre 2020

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 · 6 Décembre 2020

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 · 6 Décembre 2020

Staple1600 à dit:
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 · 6 Décembre 2020

et moi je souffle un peu fort dessus

soan · 6 Décembre 2020

??? 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 · 6 Décembre 2020

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 · 6 Décembre 2020

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

soan

Legendre · 2 Avril 2021

Staple1600 à dit:
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

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

Legendre

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Legendre

XLDnaute Nouveau

Discussions similaires