Supprimer tout les fichier par leur extension sur out les support en meme temps.

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 214 fois - Téléchargée 29 fois

Contenu du snippet

A l'origine je voulais faire un programme qui disais combien il y a de fichiers inutiles sur votre ordinateur et les supprimer.
Sur le site il y a plain d'algos de recherche très long e des fois compliqués.
Sur MSDN.fr j'ai trouvé comment supprimer tout les fichiers portant par exemple l'extension .bak.
C'est un petit script.
La j'ai mis 5 extension donc c'est assez long (2mins) et ca efface vraiment partout grace au WMI.

Source / Exemple :


strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
    ("Select * from CIM_DataFile where Extension = 'bak' OR Extension = 'bad' OR _
Extension = 'old'OR Extension = 'tmp'OR Extension = 'chk'OR Extension = gid'")'on peut mettre autant d'extension que l'on veut
For Each objFile in colFiles 'pour chaque fichier trouvé
   objFile.Delete 'on le kill
Next

Conclusion :


J'espère qu'il n'y pas de source similaire.

A voir également

Ajouter un commentaire

Commentaires

jrbleboss
Messages postés
480
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
3 septembre 2007
-
Bin la passer pas le WMI ne sert a rien il faut que tu recupère les fichiers du dossir et que tu analyse leur extension !!
cs_slayer
Messages postés
202
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
18 mars 2008
-
nickel , mais on fait comment pour effacé des fichiers dans un dossier bien précis ??
jrbleboss
Messages postés
480
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
3 septembre 2007
-
Bin non car ou trouve tu un fichier qui a plusiers extentions ???
tekila_bandita
Messages postés
248
Date d'inscription
mercredi 15 juin 2005
Statut
Membre
Dernière intervention
15 mars 2007
8 -
il ne faudrait pas pluto mettre "and" pluto que "or" ??
jrbleboss
Messages postés
480
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
3 septembre 2007
-
oui c'est vrai car ca pourrait etre un très bon virus si tu met dll comme extension !!!!!!
Mais la c'est utile !!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.