filesearch
16.02.2005 11:16:30
Jens
weiß jemand, wie man filesearch dazu bringt, dass es den exakten Dateinamen sucht und findet, also z.B. soll es '2308.xls' finden, '2308 neu.xls' jedoch nicht. Ich hab schon die Eigenschaft ".MatchTextExactly = True" probiert.-ohne Erfolg?
Kann mir jemand helfen? Vielen Dank.
Jens
hier noch mein Testcode:
Sub b()
With Application.FileSearch
.NewSearch
.LookIn = "M:\"
.SearchSubFolders = False
.Filename = "2308"
.MatchTextExactly = True
.FileType = msoFileTypeExcelWorkbooks
End With
With Application.FileSearch
If .Execute() > 0 Then
MsgBox .FoundFiles.Item(2) & vbLf & .FoundFiles.Item(1) & vbLf & .FoundFiles.Count
End If
End With
End Sub
Anzeige