Supprimer un dossier de fichiers Je n'y arrive pas avec Kill

**pelerin98** · 07/08/2019, 11h26

Bonjour,

ma structure :
E:
JPF
Japonais
Japonais-JPF
Parler-Japonais
Images-Parler (données en format png)
Mots-wav (données en format wav)
Appli-Parler-Japonais (application en format xlsm)

Je n'ai aucun problème pour supprimer l'application avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Kill "E:\JPF\Japonais\Japonais-JPF\Parler-Japonais\Appli-Parler-Japonais.xlsm"

Mais comment dois-je faire pour supprimer un "dossier de fichiers" (sans extension) comme :
"Mots-wav" ou "Images-Parler" ?

Cordialement

**muratime** · 07/08/2019, 11h30

Salut, une idée parmi tant d'autre a tu essayé ça ? SI tu connais le nom mais pas l'extension. Cela supprime tous les fichiers auront le nom "Appli-Parler-Japonais" peu importe l'extension.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
On Error Resume Next 'si le fichier n'existe pas il ne donne pas d'erreur
Kill "E:\JPF\Japonais\Japonais-JPF\Parler-Japonais\Appli-Parler-Japonais.*"

Ou ça pour l'inverse ça supprime tous les fichiers avec l'extension qui auront .xlsm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
On Error Resume Next
Kill "E:\JPF\Japonais\Japonais-JPF\Parler-Japonais\*.xlsm"

**eriiic** · 07/08/2019, 11h42

Bonjour,

pour supprimer un répertoire c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RmDir "ton_rep"

Je crois me rappeler qu'il doit être vide (?) A tester.
eric

**pelerin98** · 07/08/2019, 12h11

bonjour muratime,

merci de ta sollicitude, mais dans les deux cas la réponse est :
"chemin d'accès introuvable"
Il y a manifestement une solution spécifique pour les dossiers sans extension (dossiers de fichiers).

Cordialement

**muratime** · 07/08/2019, 12h22

Envoyé par pelerin98

bonjour muratime,

merci de ta sollicitude, mais dans les deux cas la réponse est :
"chemin d'accès introuvable"
Il y a manifestement une solution spécifique pour les dossiers sans extension (dossiers de fichiers).

Cordialement

Pour que cela fonctionne il faut que les dossiers dans E:\JPF\Japonais\Japonais-JPF\Parler-Japonais\ existent sinon il ne trouvera rien.
Et je ne sais pas pourquoi tu parles de dossiers sans extension un dossier n'a jamais eu d'extension un fichier par contre oui.

Envoyé par pelerin98

Il y a manifestement une solution spécifique pour les dossiers sans extension (dossiers de fichiers).

Pour faire un test j'ai créer un dossier nouveau dossier sur mon bureau et cela fonctionne parfaitement. Et si le fichier jpg n'existe pas alors il ne fais rien avec le On Error Resume Next pour pas avoir d'erreur de code.

Ce type de code est a manœuvrer avec prudence car une fois supprimer un fichier tu peu pas le récupérer il n'iras pas dans la corbeille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub essai()
On Error Resume Next
 
Kill "C:\Users\Stef\Desktop\Nouveau dossier\*.jpg"
End Sub

**pelerin98** · 07/08/2019, 12h33

Bonjour Eriiic,

Effectivement, supprimer un répertoire par RmDir ne fonctionne que si le répertoire est vide.
Il ne me reste plus qu'a trouver la solution pour le vider avant de le "dRmDiriser " ! ! !

Cordialement

**muratime** · 07/08/2019, 12h36

Envoyé par pelerin98

Bonjour Eriiic,

Effectivement, supprimer un répertoire par RmDir ne fonctionne que si le répertoire est vide.
Il ne me reste plus qu'a trouver la solution pour le vider avant de le "dRmDiriser " ! ! !

Cordialement

Si tu veux vider tout un dossier par exemple dans un dossier nommé "dossier1" sur ton bureau tu peu faire comme ça. Il faut changer "ton nom de pc" par le tiens.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub essai()
On Error Resume Next
 
Kill "C:\Users\"ton nom de pc"\Desktop\dossier1\*.*"
End Sub

**pelerin98** · 07/08/2019, 14h11

OK muratime,

j'ai dû mal rédiger ma requête car avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Kill "E:\JPF\Japonais\Japonais-JPF\Parler-Japonais\Mots-wav\Mots-Japonais\*.waw"

mon répertoire "Mots-Japonais" qui contient n enregistrements de sons .wav est bien vidé de tous ses enregistrements .wav
Après, je sais comment supprimer le répertoire vide par RmDir.

Mille merci à tous

**muratime** · 07/08/2019, 14h36

Envoyé par pelerin98

OK muratime,

j'ai dû mal rédiger ma requête car avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Kill "E:\JPF\Japonais\Japonais-JPF\Parler-Japonais\Mots-wav\Mots-Japonais\*.waw"

mon répertoire "Mots-Japonais" qui contient n enregistrements de sons .wav est bien vidé de tous ses enregistrements .wav
Après, je sais comment supprimer le répertoire vide par RmDir.

Mille merci à tous

Par contre ce code est sensible à la casse
Si tu met ça .waw et que tu veuilles supprimer des fichiers wav cela ne fonctionneras pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Kill "E:\JPF\Japonais\Japonais-JPF\Parler-Japonais\Mots-wav\Mots-Japonais\*.wav"

Et pense a mettre ton sujet comme résolu

**Thumb down** · 07/08/2019, 15h52

Bonjour,
Suppression d'un répertoire avec son contenu !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set FS= CreateObject("Scripting.FileSystemObject")
FS.DeleteFolder "E:\JPF\Japonais\Japonais-JPF\Parler-Japonais\Mots-wav\Mots-Japonais", True
Set FS=nothing