View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
NickHK NickHK is offline
external usenet poster
 
Posts: 4,391
Default ".MatchTextExactly = true" not always the case, please help.

Not sure exactly what you are after (I'd drop the .FileSearch), but
something like this ?

Private Sub CommandButton1_Click()
Dim FileName As String

Const PATH As String = "C:\"
Const FILTER As String = "??"
Const EXT As String = ".txt"

FileName = Dir(PATH & FILTER & EXT)

Do While FileName < ""
Debug.Print FileName
FileName = Dir()
Loop

End Sub

For 2 characters only in the filename, use
Const FILTER As String = "??"

For anything that ends in 1A in the filename, use
Const FILTER As String = "*1A"
...etc

If you need complex filtering, then get the filename and apply some LIKE
expression or resort to Regular Expressions.

NickHK

"tenlbham" wrote in message
...
I've written an Excel macro that searches through a list of files using
Application .FileSearch in a specified location created by another
application, and then does some other stuff with those files.

The macro looks for a standard filename to know which files are which, and

I
built in a check to stop the routine if it comes across multiple files

with
the same name, in case the other application was run multiple times

resulting
in multiple copies of the files. The problem is that the output files

from
the other application have some similarity, for example:
"1A.eplmdf"
"LA1A.eplmdf"
"S01A.eplmdf"

I set the .MatchTextExactly field equal to "True" which I thought would

make
FileSearch actually match the text exactly, but instead if it's seeing all

of
the files listed above with "1A.eplmdf" in their name.

Is there some way I can have it look for just "1A.eplmdf" and not see all

of
the other files that have "1A.eplmdf" in their name?

Thanks.