【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.4

nishi6

少し書き込んでみました。

●問題点１
FileSearchでは、*PROFILE.xls も見つかってしまう。（仕様だと思うが。。。）
●問題点２
FileSearchでは、複数のファイルが見つかることを想定している。（質問は都合で、最初のファイルのみを表示されているのかもしれません）
●問題点３
サブフォルダも検索する指定なので、見つかったファイル名を直接照合するとおかしな結果になる。

下では、
●問題点１：複数のファイルの完全一致を調べている。
●問題点２：完全一致を調べるためにフォルダ名を除いている。
●問題点３：サブフォルダも調べるはずですが、ここにあったとして、どのような処理にするかは分からないので、何もしていません。

Sub Test_1()
　　Dim i As Integer　'// カウンタ
　　Dim checkFileExist As Boolean　'// ファイルがあったか

　　With Application.FileSearch
　　　　.NewSearch
　　　　.LookIn = "A:\"
　　　　.SearchSubFolders = True
　　　　.Filename = "PROFILE.xls"

　　　　'// 見つけたファイルをすべて照合
　　　　checkFileExist = False
　　　　If .Execute() > 0 Then
　　　　　　For i = 1 To .FoundFiles.Count
　　　　　　　　'// ドライブ、フォルダ名を削除して照合
　　　　　　　　'// *PROFILE.xls も見つかるので再チェック
　　　　　　　　checkFileExist = FileExist(.Filename, .FoundFiles(i))
　　　　　　　　If checkFileExist Then
　　　　　　　　　　MsgBox Application.FileSearch.FoundFiles(i) & "あった"
　　　　　　　　　　Exit For
　　　　　　　　End If
　　　　　　Next
　　　　End If

　　　　If Not checkFileExist Then
　　　　　　MsgBox "Aドライブに[PROFILE.xls]を保存してね"
　　　　End If
　　End With

End Sub

Function FileExist(ByVal schFN As String, ByVal FN As String)
　　Dim p As Integer, pot As Integer

　　'// 一番右の『\』を探す
　　pot = 0
　　For p = Len(FN) To 1 Step -1
　　　　If Mid(FN, p, 1) = "\" Then
　　　　　　pot = p: Exit For
　　　　End If
　　Next

　　'// ファイル名だけで比較
　　FileExist = False
　　If schFN = Right(FN, Len(FN) - pot) Then
　　　　FileExist = True
　　End If
End Function

お礼

ご提示いただいた例でも実現することができました。ご丁寧にご回答ありがとうございました！