VB Code:
Option Explicit
Private Sub Form_Load()
Dim find As String
Dim fldr As String
fldr = "c:\somefolder\"
find = Dir$(fldr & "*.dat")
Do While Len(find)
SearchFile fldr & find, "wire"
find = Dir$()
Loop
End Sub
Public Sub SearchFile(ByVal fil As String, ByVal SearchFor As String)
Dim dat As String
Dim ff As Integer
ff = FreeFile()
On Error Goto Probs
Open fil For Input As #ff
dat = Input(LOF(ff), ff)
Close #ff
If InStr(1, dat, SearchFor, vbTextCompare) > 0 Then
MsgBox "Found it in file " & fil
End If
On Error Goto 0
Exit Sub
Probs:
MsgBox "Errors occurred!"
On Error Goto 0
End Sub