Application.FileSearch.Filename anomaly setting beginning of filename

Hi:

The problem is that I want to find files like "'INV*.DOC", but I'm
also picking up "xxINV*.DOC" files as well.

DOS doesn't have this problem, but Application.FileSearch.Filename
seems to have it.

If I specifiy a wildcard for the file extension, it works OK, but not
if I specify the extension. e.g. "INV*.*" doesn't pick up the
"xxINV*.DOC" files.

Indexing is turned off. Using Word 2003. I have seen that there are
problems with this function, but I can't believe at Office11 this
problem hasn't been sorted out.

Code example below

Thanks in advance for your help.

-- Roy Zider


Public Sub TestFileSearch()
' 12/3/2007 lsz
' Testing application.filesearch for start of filename problem with
xxinv*.doc
' Test with three files: t1.txt, t2.txt and xxt3.txt

Dim oFS As Object
Dim i As Integer
Set oFS = Application.FileSearch
With oFS
.LookIn = "C:\temp test\filesearch"
.FileName = "t*.*" ' OK - xxt3.txt not found
' .FileName = "t*.txt" ' not OK -- finds xxt3.txt as well
' .FileName = "inv*.doc" ' not OK -- finds xxinv.doc
If .Execute > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With

End Sub

zkid
Thu Dec 06 18:37:00 PST 2007

Well, that's not very logical, is it?! Anyway, here are a couple of fixes:

First, instead of Dim oFS As Object, dimension it as Dim oFS As FileSearch.
It won't change how the code works, but it will provide you pop-up content
help.

Second, change the document extension as follows: "Inv*.doc" becomes
"Inv*.do*"

It works - can't explain why....

"FUBARinSFO" wrote:

> Hi:
>
> The problem is that I want to find files like "'INV*.DOC", but I'm
> also picking up "xxINV*.DOC" files as well.
>
> DOS doesn't have this problem, but Application.FileSearch.Filename
> seems to have it.
>
> If I specifiy a wildcard for the file extension, it works OK, but not
> if I specify the extension. e.g. "INV*.*" doesn't pick up the
> "xxINV*.DOC" files.
>
> Indexing is turned off. Using Word 2003. I have seen that there are
> problems with this function, but I can't believe at Office11 this
> problem hasn't been sorted out.
>
> Code example below
>
> Thanks in advance for your help.
>
> -- Roy Zider
>
>
> Public Sub TestFileSearch()
> ' 12/3/2007 lsz
> ' Testing application.filesearch for start of filename problem with
> xxinv*.doc
> ' Test with three files: t1.txt, t2.txt and xxt3.txt
>
> Dim oFS As Object
> Dim i As Integer
> Set oFS = Application.FileSearch
> With oFS
> .LookIn = "C:\temp test\filesearch"
> .FileName = "t*.*" ' OK - xxt3.txt not found
> ' .FileName = "t*.txt" ' not OK -- finds xxt3.txt as well
> ' .FileName = "inv*.doc" ' not OK -- finds xxinv.doc
> If .Execute > 0 Then
> MsgBox "There were " & .FoundFiles.Count & _
> " file(s) found."
> For i = 1 To .FoundFiles.Count
> MsgBox .FoundFiles(i)
> Next i
> Else
> MsgBox "There were no files found."
> End If
> End With
>
> End Sub
>
>
>
>
>
>
>