[vbs]wmp mp3 recent files erasor

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 688 fois - Téléchargée 49 fois

Contenu du snippet

Ca supprime les derniers fichiers MP3 ouverts avec WMP(Windows Media Player)

Source / Exemple :


'---- Déclaration des variables ----
Dim WScript,I
Dim ThisKey
Dim ThisKeyValue
Dim LastKeyValue

'---- Affectation des objets ----
Set WScript=Createobject("WScript.Shell")

'---- Boucle de suppression ----
For I=0 To 8
	ThisKey="HKEY_CURRENT_USER\Software\Microsoft\MediaPlayer\Player\recentFileList\File" & I
	On Error Resume next

	ThisKeyValue=WScript.RegRead(ThisKey)

	'---- Vérifie ci cette valeur n'est pas égale à l'ancienne
	If ThisKeyValue<>LastKeyValue Then
		If LCASE(RIGHT(ThisKeyValue,3))="mp3" Then
			'Supprime la valeur
			WScript.RegDelete ThisKey
		End If
	
	End If

	
	lastKeyValue=ThisKeyValue
	
Next

'---- Message Final ----
msgbox "Et voila le travail!" & chr(10) & "Plus UN seul MP3 dans la liste des fichiers récement ouvert de WMP!",vbokonly+vbexclamation,"WMP MP3 Recent Files Erasor"

Conclusion :


ps: C'est assez barabre comme programmation mais pas le choix c du VBS...

A voir également

Ajouter un commentaire Commentaire
vbtom
Messages postés
229
Date d'inscription
dimanche 3 juin 2001
Statut
Membre
Dernière intervention
5 octobre 2003

12 janv. 2002 à 19:27
Nan en fait me suis planté ds lexplication! ca supprime les liens de la liste des fichiers recement ouvert ms pas les fichiers eux mem!

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.