【ExcelVBA】指定したファイル名をAドライブで検索

質問

エクセルVBAで、指定したファイル名のファイルをAドライブ直下で検索した場合、ワイルドカードを使ってないにも関わらず、ワイルドカード検索みたいな感じで結果がとれてしまいます。

■Aドライブ直下
aaaPROFILE.xls
testPROFILE.xls

■コード
With Application.FileSearch
.NewSearch
.LookIn = "A:\"
.SearchSubFolders = True
.Filename = "PROFILE.xls"
If .Execute() > 0 Then
MsgBox Application.FileSearch.FoundFiles(1) & "あった"
Else
MsgBox "Aドライブに[PROFILE.xls]を保存してね"
End If
End With

これを実行すると、「Aドライブに[PROFILE.xls]を保存してね」というメッセージが出てほしいのですが、「aaaPROFILE.xlsあった」とでてきてしまい、aaaPROFILE.xlsが検索結果にひっかかってしまいます。

これは何故でしょうか？どうしたら指定した文字列をビタで検索できるでしょうか？
ご回答よろしくお願いいたします。

回答No.6

Wendy02

こんばんは。#3です。

別に、FileSearch にこだわらなければ、Dir() でよいのです。
FileSearch は、昔から、バグっぽかったし、未だに調子が良くないです。

もともと、FileSearch 　のファイル名のプロパティは、*FILENAME* というワイルドカードがくっついていることと同じだから、片方に、明示的に入れて上げれば、片方は取れます。しかし、そうでないのでしたら、以下のようなものにすればよいです。おそらく、こちらのほうが数段速いはずです。

'--------------------------------------------------
Sub FileSeachPrc()
　Dim Fso As Object
　Dim objFolder As Object
　Dim buf() As Variant
　Dim f As Variant
　Dim i As Long
　Dim j As Integer
　Dim flg As Boolean

　Const MYFILE As String = "PROFILE.xls"
　Const MYDRIVE As String = "A:\" '必ず、末尾に'\'を入れてください。

　'ドライブのReady チェック
　Set Fso = CreateObject("Scripting.FilesystemObject")
　'以下は変数が利かないので、リテラル値 "A"
　If Fso.Drives("A").IsReady = False Then
　　MsgBox "ドライブ" & MYDRIVE & "は、準備されていません。", vbInformation
　　Set Fso = Nothing
　　Exit Sub
　End If

　Set objFolder = Fso.GetFolder(MYDRIVE)
　ReDim buf(0)
　buf(0) = MYDRIVE
　'サブフォルダを格納
　For Each f In objFolder.SubFolders
　　i = i + 1
　　ReDim Preserve buf(i)
　　buf(i) = f
　Next f

　For Each f In buf
　　If Dir(f & "\" & MYFILE) <> "" Then
　　　MsgBox "Aドライブの[" & f & "\" & MYFILE & "]をあった", vbInformation
　　　flg = True
　　　 'あまりに、同名ファイルが多すぎるときの保護
　　　If j > 5 Then Exit For
　　　j = j + 1
　　End If
　Next f

　If flg = False Then
　　MsgBox "Aドライブに[" & MYFILE & "]を保存してね", vbInformation
　End If

　Set Fso = Nothing
　Set objFolder = Nothing
End Sub

お礼

fileSearchに特にこだわりはありませんです。
（使ったことがなかったので色々調べてみたら書いてあったので使ったという安易な理由です…）
DIRでもこのように使えば全然OKなんですね、確かに早いです！
ご丁寧にありがとうございました！