deleting files based on internal text value 1

[volant]

I need to delete files from a directory.
I need to search within the files for a specific text value, and then delete the file if it contains the text I'm looking for.
i.e.

delete all files containing 'xbx'

 

[PHV]

What have you so far ?
You can play with the FileSystemObject and the InStr function.

Hope This Help
PH.

 

[volant]

I'm nowhere at this point. This is not an area i'm familier with.

 

[PHV]

Try something like this:

Set fso=CreateObject("Scripting.FileSystemObject")
Set f=fso.GetFolder("C:\Path\to\folder")
Set fc=f.Files
For Each fl in fc
  If Right(LCase(fl.Path),3)="txt" Then
    Set ts=fl.OpenAsTextStream(1)
    found=False
    Do While Not ts.AtEndOfStream
      If InStr(1,ts.ReadLine,"Searched String",1)>0 Then
        Found=True
        Exit Do
      End If
    Loop
    ts.Close
    If Found Then WScript.Echo fl.Path: fl.Delete
  End If
Next

Hope This Help
PH.