1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Supprimer tout les fichier par leur extension sur out les support en meme temps.

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

1/5 (8 avis)

Snippet vu 11 636 fois - Téléchargée 31 fois

Commenter

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 1
9 août 2006 à 21:29
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
8 août 2006 à 03:25
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 1
2 sept. 2005 à 18:36
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 33
8 août 2005 à 13:46
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 1
26 juin 2005 à 20:08
oui c'est vrai car ca pourrait etre un très bon virus si tu met dll comme extension !!!!!!
Mais la c'est utile !!
Afficher les 8 commentaires
S'inscrire maintenant

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.

Du même auteur (jrbleboss)