Suppression dossier présent à l'écran

Bonjour cs_Le Pivert, f894009,
Je vous remercie tardivement certes mais gros problème de santé.
Effectivement le sujet est résolu.
Je vous remercie tous deux.
Au plaisir de vous rencontrer de nouveau/

Bonjour cs_Le Pivert
Je te remercie de me répondre.
Effectivement, je pensais le sujet résolu, mais 2 personnes n'ont pas leur bureau en C:\ mais une en D:\ et une en E:\
Aussi je me demande s'il n'y a pas une solution en faisant une recherche du dossier "NouvelFiche.zip" et le le supprimant.

Bonjour,

je t'ai envoyé un lien pour la même demande. Tu l'as mis en résolu!

https://forums.commentcamarche.net/forum/affich-35947922-supprimer-dossier-non-vide

Re
J'ai crié victoire trop vite, ça ne fonctionne pas

Trouvé avec ce code :

Private Sub SupDosFi()
Dim bureau$, Dossier$, zip$, fichier$
    bureau = CreateObject("WScript.Shell").SpecialFolders("desktop") & "\"
    Dossier = bureau & "NouvelFiche\"
   zip = bureau & "NouvelFiche.zip"
   If Dir(zip, vbArchive) <> "" Then Kill zip
        If Dir(Dossier, vbDirectory) <> "" Then
          fichier = Dir(Dossier & "*.*")
                Do While fichier <> ""
                  Kill Dossier & fichier
                  fichier = Dir
                Loop
          RmDir Dossier
        End If
End Sub

Je vous remercie et vous souhaite une excellente journée

Bonjour Jojolaguitare, f894009
Je vous remercie de me répondre pour m'aider à résoudre le problème
Jojolaguitare, ce n'est pas ce que je souhaite
f, j'ai essayé :

Sub SupDossierzip()   'TEST ESSAI
    Kill ("C:\userprofiles\"NouvelFiche.zip"
End Sub

Mais ça marche pas

Bonjour,

supprimer le dossier "NouvelFiche.zip"

Kill ("Chemin\nomdefichier")

Bonjour.

Avec le logiciel Unlocker pas de problème même si trustedlnstaller ne vous l'autorise pas. Vous retrouverez ce fichier/dossier dans la corbeille.

https://www.commentcamarche.net/telecharger/utilitaires/22737-unlocker/

A + . . .