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

[rory]

Sorry, didnt realise you were also dealing with Read Only files .. update this line .. Forcing Deletion with the TRUE.

objFile.delete(True)