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.

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 506 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
Signaler
Messages postés
480
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
3 septembre 2007
 1
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 !!
Signaler
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 ??
Signaler
Messages postés
480
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
3 septembre 2007
 1
Bin non car ou trouve tu un fichier qui a plusiers extentions ???
Signaler
Messages postés
248
Date d'inscription
mercredi 15 juin 2005
Statut
Membre
Dernière intervention
15 mars 2007
 33
il ne faudrait pas pluto mettre "and" pluto que "or" ??
Signaler
Messages postés
480
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
3 septembre 2007
 1
oui c'est vrai car ca pourrait etre un très bon virus si tu met dll comme extension !!!!!!
Mais la c'est utile !!
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)