Nigel,

I don't know how to limit FileSearch's enthousiasm..
Why it wont except normal wildcards? Beyond me!

...except to filter the foundfile collection post execute.

I've wrapped it into a function like this:
NOT thoroughly tested but it seems to work
(note that it's Excel2000 and newer only)



Sub Test()
Dim v
v = FindIt("c:\dummy*.csv")
End Sub

Function FindIt(Search$)
Dim res() As String
Dim i As Integer

ReDim res(1 To 1)
With Application.FileSearch
.NewSearch
.LookIn = Left(Search, InStrRev(Search, "\"))
.Filename = Mid(Search, InStrRev(Search, "\") + 1)
.SearchSubFolders = False
.Execute
Search = LCase("*\" & .Filename)
For i = 1 To .FoundFiles.Count
If LCase(.FoundFiles(i)) Like Search Then
ReDim Preserve res(1 To UBound(res) + 1)
res(UBound(res) - 1) = .FoundFiles(i)
End If
Next
End With

If UBound(res) 1 Then
ReDim Preserve res(1 To UBound(res) - 1)
FindIt = res
End If
End Function




keepITcool

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


"Nigel" wrote:

Does anyone know the rules for application file search, I have a
curious result from the following search in my application. If the
string 'audit.csv' appears in any file in the chosen path I get True
as file exists. Despite not including wild cards in the search string
filename.

My test reveal the following:
1. audit.csv =True
2. xxaudit.csv =True
3. auditxx.csv =False
I would have expected option 2 to return False, is there something I
should do in addition to fix this ?


' search for the audit.csv file if it exists
Dim vFileExists As Boolean
Application.FileSearch.LookIn = vPath
Application.FileSearch.Filename = "audit.csv"
If Application.FileSearch.Execute 0 Then
vFileExists = True
Else
vFileExists = False
End If




----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet
News==---- http://www.newsfeed.com The #1 Newsgroup Service in the
World! 100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers
- Total Privacy via Encryption =---