SUPPRIME FICHIERS DATANT DE PLUS DE 15 JOURS !!!!
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
-
10 déc. 2005 à 21:11
nonyme404 Messages postés 55 Date d'inscription mercredi 23 octobre 2013 Statut Membre Dernière intervention 8 janvier 2014 - 3 nov. 2013 à 22:04
nonyme404 Messages postés 55 Date d'inscription mercredi 23 octobre 2013 Statut Membre Dernière intervention 8 janvier 2014 - 3 nov. 2013 à 22:04
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/33195-supprime-fichiers-datant-de-plus-de-15-jours
https://codes-sources.commentcamarche.net/source/33195-supprime-fichiers-datant-de-plus-de-15-jours
3 nov. 2013 à 22:04
21 juin 2012 à 22:27
C'était finalement très simple!!
Bonne soirée à tout le monde
Elnonoche
21 juin 2012 à 22:25
21 juin 2012 à 05:02
y'a peut etre une subtilité...
20 juin 2012 à 23:32
Ce code m'est très utile, un grand merci à l'auteur!
Par contre, je galère un peu sur un point : je voudrais enlever la demande de sélection du dossier car je dois pointer toujours au même endroit. Toutes mes tentatives se sont soldées par un échec.
Que dois-je faire donc, mis à part le faire de renseigner le chemin du dossier dans la var "strFolderName" ???
Je vous remercie d'avance pour votre aide
Bonne soirée
El_nonoche
3 mars 2010 à 16:57
Set colSubfolders2 = objWMIService.ExecQuery _
("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _
& "Where AssocClass = Win32_Subdirectory " _
& "ResultRole = PartComponent")
Cependant, j'ai pu constater que le soucis venait du fait que le nom de dossier comportait une/des simples quotes.
Comment passer outre ?
J'ai essayer les doubles doubles quotes :
Win32_Directory.Name=""" & strFolderName & """
au lieu de
Win32_Directory.Name='" & strFolderName & "'
Merci de me répondre si qql un connait une solution ...
28 juil. 2009 à 22:50
ATTENTION ! PRENEZ GARDE le script ne demande aucune confirmation ! Juste à l'essayer on peut perdre beaucoup d'un coup... Cela vient de m'arriver...
A bon entendeur... je vous salue...
Amicalement,
Us.
25 mars 2008 à 20:54
le problème se fait quand je choisi un dossier qui a un sous-dossier...
le code traite bien les fichiers qui se trouve dans le dossier mais pas ceux qui se trouve dans les sous-dossiers
Et il me montre comme erreur de référence cette partie du code :
Set colSubfolders2 = objWMIService.ExecQuery _
("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _
& "Where AssocClass = Win32_Subdirectory " _
& "ResultRole = PartComponent")
25 mars 2008 à 20:40
Bonsoir imparator_42,
mohax007 ne s'étant pas connecté sur ce forum depuis 2005, il serait préférable d'ouvrir un post dans le thème approprié "Thèmes / Visual Basic 6 / Langages dérivés / VBScript "
>>> Vous voudrez pas nous donner en form de zip ?
>>> parce que la, il me cause des problème .. .
Quel(s) problème(s) rencontrez-vous ???
25 mars 2008 à 17:44
parce que la, il me cause des problème .. .
8 juin 2007 à 21:30
Bonsoir "Raphou96" et "perlon",
L'auteur de cette source (mohax007) n'ayant pas visité ce forum depuis le 12/08/2005,
pouvez-vous ouvrir un topic dans la rubrique
"Thèmes / Visual Basic 6 / Langages dérivés / VBScript".
Ceci afin de ne pas "polluer" les sources et ainsi de faire "vivre" ce magnifique forum.
Réponses garanties !!!
jean-marc
8 juin 2007 à 16:37
J'ai fait un ou deux changements qui collent avec ce que je voulais dans ma boite pour la suppression de mon commun.
Je noterai ma solution d'ici lundi, enfin faut juste que j'y pense et que j'en trouve le temps.
Dès que c'est fait, je t'enverrai un message. En tout cas ca marche dans ma boite suppression > 20 jours (dernière date de modification).
Bon week end
8 juin 2007 à 09:50
J'en appelle à votre bon coeur pour m'aider dans ma démarche.
Tout comme pour Raphou96, ce script m'intéresse beaucoup, mais il y aurais quelques modif à faire (et étant complètement nul en programmation)je ne sait quoi modifier.
dans mon cas, je souhaite supprimer les fichiers et/ou dossier datant de plus de 7 jours dans un répertoire commun.
Je suis à l'écoute de toutes propositions.
Merci
31 mai 2007 à 15:27
Parfait ton code, il faudrait que je le réadapte car il correspond à mon besoin mais je suis trop nul dans ce language.
Car moi je cherche à supprimer les fichiers repertoires anterieur de 30 jours par rapport à la date du jour et ceci de manière automatique afin de supprimer le contenu obsolète d'un répertoire d'echange commun.
Si tu as la possibilité de m'aider à modifier ton code je suis preneur.
A+
24 mai 2007 à 10:58
et double cliques sur ce dernier.
testé, le script marche impeccable
24 mai 2007 à 10:11
Merci
10 déc. 2005 à 21:11
Question: Où trouver une doc pour cette interface ???.
En l'adaptant, on peux faire de jolies présentations visuelles.
jeanmarc