would be easier if you stay within the thread, by replying :)

Following works for my and finds the txt files containting:
AnyTextEQSERVICEMAC

Sub ff()
Dim usid As String
Dim i As Integer

usid = "AnyText"

With Application.FileSearch
.NewSearch
.LookIn = "\\txnt34\g-tx-virtual"
.Filename = "*.txt"
.TextOrProperty = usid & "EQSERVICEMAC"
.MatchTextExactly = False
.Execute

If .FoundFiles.Count = 0 Then GoTo wait

For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Next i


End With
Exit Sub

wait:
MsgBox "No files found"

End Sub




keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


Michael Wise wrote:


i dont see DOTS within the With/End With construct..

Keepitcool, there are dots there. The functions works as long as the
criteria is within the quotes or as a variable. The problem comes when
trying to set it to look for both the variable 'usid' and
"EQSERVICEMAC"