Application.FileSearch.Filename
(1)
Word 2003
(1)
FoundFiles.Count
(1)
TestFileSearch
(1)
XxINV
(1)
OFS
(1)
Zider
(1)
Application.filesearch
(1)

Application.FileSearch.Filename anomaly setting beginning of filename substring

Asked By FUBARinSFO
06-Dec-07 08:45 PM
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

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 & _
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With

End Sub

Well, that's not very logical, is it?

Asked By zki
06-Dec-07 09:37 PM
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

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

Application.FileSearch.Filename anomaly setting

Asked By jeff denner
09-Jul-09 11:14 AM
Hi

This post looks exactly what I want but the end part of the following sentence is missing

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

can anbody help

Thanks
Post Question To EggHeadCafe