deleating .bak files from subfolders

[rory]

change this sub to reflect these changes . add in your admin user name and pass ..

Sub ParseFolder()
	Dim WshShell
	Set WshShell = Createobject("Wscript.Shell")
	WshShell.Run "runas /user:ADMINNAME", 0, True
	WshShell.Sendkeys "ADMINPASS"
    	Call DeleteFiles()
    	Call EndMessage()
	Set WshShell = Nothing
End Sub