Install

Code for Create the file : Dim objfso Set objfso = createobject(“Scripting.filesystemobject”) Const Append = 8 Dim fdir fdir = (“C:\Program Files\fake virus\create and delete\”) Const fname_ext = “miutbevids.txt” Dim Final Final = fdir + fname_ext Dim objtxt set objtxt = objfso.createtextfile(Final, True) Set objtxt = Nothing Dim fwrite Set fwrite = objfso.opentextfile(Final, Append) fwrite.writeline(“hi from miutvebvids www.miutbevids.webs.com”) fwrite.Close() Set fwrite = Nothing Set objfso = Nothing Code For Delete: Set objfso = createobject(“Scripting.filesystemobject”) objfso.deletefile(“C:\Program Files\fake virus\create and delete\createdfile.txt”) ———————- Rate Comment Subscribe Request www.mutubevids.webs.com