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

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

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)