[vbs]wmp mp3 recent files erasor

Commenter

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

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 (vbtom)