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

Bonjour le fil,

VBA peut ramer mais n'atteint jamais la falaise (lol)

Legendre à dit:
Application.DisplayAlerts = Falaise

Legendre · 6 Décembre 2020

Staple1600 à dit:
Bonjour le fil,

VBA peut ramer mais n'atteint jamais la falaise (lol)

Bonjour,
Pas mal l'humour, mais quel code fonctionnel?

soan · 6 Décembre 2020

Bonjour Jacques, Staple,

si jamais tu as une erreur de compilation,
tu peux remplacer Falaise par 0 :

Application.DisplayAlerts = 0

(car False et 0, c'est la même chose ! )

soan

patricktoulon · 6 Décembre 2020

bonjour
les fonctions vb standard (dir,remdir,mkdir) n'on pas de gestion sub extract
quand on delete un dossier avec rmdir il faut d'abords supprimer le contenu
ca devient donc galere si arborescence de plus d'un étage("dossier/sub dossier/subsub dossier")

donc une fois n'est pas coutume et bien malgré moi la seule solution pour le faire d'un coup est avec filesystemobject(FSO)
faire une recherche sur cet object des exemples il y en a à foison

Legendre · 6 Décembre 2020

A priori l'instruction " Application.DisplayAlerts " n'est pas concernée dans ce bug.
Présente ou pas la création et suppression d'un répertoire fonctionne.
Seule la suppression du répertoire avec du contenu n'est pas fonctionnelle (le répertoire ne peut être supprimé)
Jacques

Staple1600 · 6 Décembre 2020

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

Legendre · 6 Décembre 2020

patricktoulon à dit:
bonjour
les fonctions vb standard (dir,remdir,mkdir) n'on pas de gestion sub extract
quand on delete un dossier avec rmdir il faut d'abords supprimer le contenu
ca devient donc galere si arborescence de plus d'un étage("dossier/sub dossier/subsub dossier")

donc une fois n'est pas coutume et bien malgré moi la seule solution pour le faire d'un coup est avec filesystemobject(FSO)
faire une recherche sur cet object des exemples il y en a à foison

Merci

Staple1600 · 6 Décembre 2020

Re

=>patricktoulon
C'est une solution
Pas la seule
(Si PC sous Windows)
commandes MSDOS par VBA
script PowerShell par VBA

Mais si j'étais moi, je me méfierai.
Je préfère toujours supprimer des fichiers manuellement que par macro ou script.
(surtout quand il s'agit de fichiers liés au boulot)

patricktoulon · 6 Décembre 2020

re
Staple1600
oui je sais ,la commande dos aussi par l’intermédiaire de shell (et idem pour la création d'une arborescence )
faut il encore connaitre le langage
perso il y a des outils qui existent pourquoi aller chercher la complexité

Legendre · 6 Décembre 2020

Merci pour vos analyses
Bon week end
Jacques

patricktoulon · 6 Décembre 2020

re
en déclaration tardive par de ref à activer

VB:

Sub DeleteFolder()
    Dim oFSOboule As Object, chemin$
    chemin = "C:\Users\polux\DeskTop\Nouveau dossier"
    Set oFSOboule = CreateObject("Scripting.FileSystemObject")    'Instanciation du FSO
    oFSOboule.GetFolder(chemin).Delete
End Sub

soan · 6 Décembre 2020

Bonjour Patrick, le fil,

ah oui, c'est très bien, ça ! pas besoin d'utiliser Shell et xtree !

soan

Staple1600 · 6 Décembre 2020

Re

=>patricktoulon
Tout le monde ne connait pas
1) L'existence de PowerShell sous Windows
2) et donc de WHS
3) et encore moins de MS-DOS
(en tout cas ceux qui n'ont pas connu les disquettes )

soan · 6 Décembre 2020

@Staple1600

moi, j'ai connu toutes les disquettes :

* les disquettes Amstrad
* les disquettes 5" 1/4
* les disquettes 3" 1/2
* les disquettes Zip

(et j'suis même pas sûr d'avoir
mis une liste exhaustive !)

soan

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

Legendre

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Legendre

XLDnaute Nouveau

soan

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Legendre

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Legendre

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Legendre

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Discussions similaires