nonyme404
Messages postés55Date d'inscriptionmercredi 23 octobre 2013StatutMembreDernière intervention 8 janvier 2014 3 nov. 2013 à 22:04
Sauf que il a pas le button télécharger je suis gentil d'aprés les comentaires que les gens ont mis je te met une bonne note !
elnonoche
Messages postés5Date d'inscriptionsamedi 14 novembre 2009StatutMembreDernière intervention13 novembre 2014 21 juin 2012 à 22:27
Ouhla, je ne devais pas avoir tout tester car en mettant les lignes 12 à 16 en commentaire et en renseignant le chemin dans strfoldername, cela fonctionne parfaitement!!
C'était finalement très simple!!
Bonne soirée à tout le monde
Elnonoche
elnonoche
Messages postés5Date d'inscriptionsamedi 14 novembre 2009StatutMembreDernière intervention13 novembre 2014 21 juin 2012 à 22:25
Merci RENFIELD pour l'astuce mais cela me renvoie un chemin, tout ce qu'il y a de plus basique!
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 21 juin 2012 à 05:02
Mets un MsgBox du strFolderName obtenu via le BrowseForFolder
y'a peut etre une subtilité...
elnonoche
Messages postés5Date d'inscriptionsamedi 14 novembre 2009StatutMembreDernière intervention13 novembre 2014 20 juin 2012 à 23:32
Bonsoir,
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
pierremarc35
Messages postés5Date d'inscriptionmardi 18 novembre 2008StatutMembreDernière intervention20 août 2010 3 mars 2010 à 16:57
Même probleme que imparator_42 au niveau des lignes suivante :
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 ...
us_30
Messages postés2065Date d'inscriptionlundi 11 avril 2005StatutMembreDernière intervention14 mars 201610 28 juil. 2009 à 22:50
CHÔ, CHÔ ce script !
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.
imparator_42
Messages postés20Date d'inscriptionmardi 14 mars 2006StatutMembreDernière intervention17 octobre 2012 25 mars 2008 à 20:54
Ben enfait le code marche très bien quand je choisis un dossier qui n'a pas de sous-dossier...
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 :
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 25 mars 2008 à 20:40
Bonsoir à tous,
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 ???
imparator_42
Messages postés20Date d'inscriptionmardi 14 mars 2006StatutMembreDernière intervention17 octobre 2012 25 mars 2008 à 17:44
Vous voudrez pas nous donner en form de zip ?
parce que la, il me cause des problème .. .
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 8 juin 2007 à 21:30
Bonsoir à tous,
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
Raphou96
Messages postés3Date d'inscriptionvendredi 6 janvier 2006StatutMembreDernière intervention13 juin 2007 8 juin 2007 à 16:37
Salut Perlon
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
perlon
Messages postés2Date d'inscriptionmercredi 28 juin 2006StatutMembreDernière intervention14 janvier 2010 8 juin 2007 à 09:50
Bonjour,
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
Raphou96
Messages postés3Date d'inscriptionvendredi 6 janvier 2006StatutMembreDernière intervention13 juin 2007 31 mai 2007 à 15:27
Salut,
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+
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 24 mai 2007 à 10:58
copie le tout dans un fichier nommé .vbs
et double cliques sur ce dernier.
testé, le script marche impeccable
mafio31
Messages postés15Date d'inscriptionjeudi 24 mai 2007StatutMembreDernière intervention11 février 2008 24 mai 2007 à 10:11
je n'arrive pas à utiliser ce script, il m'intérésse.
Merci
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 10 déc. 2005 à 21:11
Superbe code. Je ne connaissais pas l'interface graphique.
Question: Où trouver une doc pour cette interface ???.
En l'adaptant, on peux faire de jolies présentations visuelles.
jeanmarc
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