Find And Delete

Find And Delete

--------------------------------------------------------------------------------

Description : This searches through each file in a folder with .htm, .html, and .asp extensions and searches for a string. If the string is found it is replaces with a blank or can be modified to replace with another string.

****** FindAndDelete.vbs ************

Const ForReading = 1
Const ForWriting = 2

Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("d:inetpubwwwroot")
Set files = folder.files

varText = "Script that you want to delete"

For Each f1 In files
If InStr(f1,".asp") > 0 Or InStr(f1,".htm") > 0 Or InStr(f1,".html") > 0
Then
Set f = fso.OpenTextFile(f1,ForReading)
If Not f.AtEndOfStream Then
varNew = Replace(f.ReadAll,varText,"")
Set f = fso.OpenTextFile(f1,ForWriting )
f.Write varNew
End If
Set f = Nothing
End If
Next

MsgBox "Change OK"