Menu

Suppression dossier présent à l'écran [Résolu]

Messages postés
311
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
14 mai 2019
- - Dernière réponse : jean300
Messages postés
311
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
14 mai 2019
- 14 mai 2019 à 13:32
Bonjour,
Je sollicite vos connaissances pour supprimer le dossier "NouvelFiche.zip", dossier temporaire crée par macro et affiché à l'écran, après exécution de la dite macro
En vous remerciant


Configuration: Windows / Firefox 66.0
Afficher la suite 

Votre réponse

8 réponses

Messages postés
8047
Date d'inscription
vendredi 31 août 2012
Statut
Membre
Dernière intervention
21 mai 2019
885
0
Merci
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/download/telecharger-34055141-unlocker

A + . . .

Commenter la réponse de Jojolaguitare
Messages postés
14381
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
23 mai 2019
1137
0
Merci
Bonjour,

supprimer le dossier "NouvelFiche.zip"

Kill ("Chemin\nomdefichier")
Commenter la réponse de f894009
Messages postés
311
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
14 mai 2019
5
0
Merci
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
Commenter la réponse de jean300
Messages postés
311
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
14 mai 2019
5
0
Merci
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
Commenter la réponse de jean300
Messages postés
311
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
14 mai 2019
5
0
Merci
Re
J'ai crié victoire trop vite, ça ne fonctionne pas
Commenter la réponse de jean300
Messages postés
6048
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
23 mai 2019
365
0
Merci
Bonjour,

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

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

Commenter la réponse de cs_Le Pivert
Messages postés
311
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
14 mai 2019
5
0
Merci
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.
cs_Le Pivert
Messages postés
6048
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
23 mai 2019
365 -
Là aussi tu as mis en résolu une question qui concernée le chemin du bureau!

https://www.commentcamarche.net/forum/affich-35624558-chemin-du-bureau#1

@+
f894009
Messages postés
14381
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
23 mai 2019
1137 -
Bonjour à tous
Jean :
Il faut mettre tout les fichiers et répertoires dans le "bureau ", c/d/e n'aura plus d'importance. C'est ce que je vous avais proposé.......
Commenter la réponse de jean300
Messages postés
311
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
14 mai 2019
5
0
Merci
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/
Commenter la réponse de jean300