I don't know if anyone could help with this. The idea is fairly simple.
At present I have a macro that searches for a file. Each file name is
47 char long and is found using

Set fs = Application.FileSearch
With fs
LookIn = "G:\PUB"
SearchSubFolders = False
Filename =
Out_TkbAwMegVLHRkMfximTWZRvqohpTQOjKNqXN.finish
etc...

Is there a way of of searching using a 'like' statement eg,

filename like Out_TkbAw ??


--
Jimbo1
------------------------------------------------------------------------
Jimbo1's Profile: http://www.excelforum.com/member.php...o&userid=30637
View this thread: http://www.excelforum.com/showthread...hreadid=527100

try this code - maybe it would be helpful...

Sub ff()

Dim fs As Object
Dim temp_name As String
Dim i As Long

temp_name = "Out_TkbAw"


Set fs = Application.FileSearch
With fs
..NewSearch
..LookIn = G:\PUB"
..SearchSubFolders = False
..MatchTextExactly = False
..Filename = temp_name
..Execute

For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i


End With


End Sub

'maybe we could add an additional loop:

if .FoundFiles.Count 0 then

For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i

else

MsgBox "No files !"

end if

thank for reply. Haven't had time to test it yet but it looks as though
I can use it. cheers


--
Jimbo1
------------------------------------------------------------------------
Jimbo1's Profile: http://www.excelforum.com/member.php...o&userid=30637
View this thread: http://www.excelforum.com/showthread...hreadid=527100

Snake, how do I take your code and go one step further. That is, if
there are found files, I would like to open each file, copy sheet(1) of
each WB to a summary WB, close the found file without saving and print
the summary WB. TIA

Greg

try to use smtg like that... the code is not optimized i suppose - I
didnt check it coz it's late :-)

Sub ff()

Dim fs As Object
Dim temp_name, folder_name, base_file, temp_file As String
Dim i, j As Long

temp_name = ".xls"
folder_name = "C:\"
base_file = Application.ActiveWorkbook.Name



Set fs = Application.FileSearch
With fs
..NewSearch
..LookIn = folder_name
..SearchSubFolders = False
..MatchTextExactly = False
..Filename = temp_name
..Execute

If .FoundFiles.Count 0 Then

For i = 1 To .FoundFiles.Count

Workbooks.Open Filename:=.FoundFiles(i)
temp_file = Application.ActiveWorkbook.Name

Sheets(1).Copy
After:=Workbooks(base_file).Sheets(Application.Wor kbooks(base_file).Sheets.C
ount)
Workbooks(temp_file).Close SaveChanges:=False

Next i


For j = 1 To Workbooks(base_file).Sheets.Count

Sheets(j).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1

Next j

Else

MsgBox "No files to perform!"

End If



End With


End Sub