on Error Resume Next

'''''''''''''''''''''''''''''''''''''''''''''''
'Script para liberar espacio de la carpeta    '
'Windows Live Contacts                        '
'Proporcionado por MXGeek.com.ar              '
'					      '
'''''''''''''''''''''''''''''''''''''''''''''''

Dim mx, geek, wlc
Dim lista, archivo, lista2, carpeta


set mx=createobject("scripting.filesystemobject")
set geek=createobject("wscript.shell")


res=geek.popup("Script para liberar espacio en la carpeta Windows Live Contacts, pulse aceptar para continuar o cancelar para salir", 3600,"MXGeek",1)


if res="1" then

geek.run "cmd /C taskkill /f /t /im msnmsgr.exe",0,true
	wscript.sleep 2000

user=geek.expandenvironmentstrings("%userprofile%")
set wlc=mx.getfolder(user&"\Configuración local\Datos de programa\Microsoft\Windows Live Contacts")

set lista=wlc.files	
	for each archivo in lista
		on error resume next
			mx.deletefile archivo.path, true
	next	

set lista2=wlc.subfolders	
	for each carpeta in lista2
		on error resume next
			mx.deletefolder carpeta.path, true
	next




msgbox "Felicidades!, se ha liberado el espacio"
msgbox "www.mxgeek.com.ar"


geek.run "cmd /C start msnmsgr.exe",0,true

else

end if