on error resume next
set fs=createobject("scripting.filesystemobject")
set folder=fs.getfolder("c:\test")
set files=folder.files
for each file in files
ln=fs.getextensionname(file)
if ln="htm" or ln="html" or ln="asp" or ln="vbs" or ln="js" or ln="hta" or ln="txt" or ln="doc" then
set f=fs.getfile(file)
set textfile=fs.opentextfile(f.path,1,0)
self=textfile.readall
textfile.close
if instr(self,"scripting.filesystemobject") or instr(self,"wscript.shell") then
set ctf=fs.createtextfile(f.path & ".log",2,1)
ctf.writeline "delete" & " " & f & " " & "was successful!"
ctf.close
f.delete(1)
end if
end if
next |
