|
たぶんダメだと思いますけど...。
Sub FileSearcha()
Dim dsk As String, 検索フィルダ名 As String, 検索ファイル名 As Variant
検索フィルダ名 = "D:\mm\oo\tt\ee"
検索ファイル名 = CStr(Cells(1, 1))
'注)拡張子を除いたXXを含むファイル名が対象になっているみたいです。
'ですので、※1の所でいちいち比較するという事になります。
'検索ファイル名 = あああ だと
'bbbあああ.txt、あああ4566.xls とかも拾っちゃいます。
'また、FileSearchは、結構いいかげん見たいです。
With Application.FileSearch
.NewSearch
.LookIn = 検索フィルダ名
.SearchSubFolders = True
.FileName = 検索ファイル名
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
MsgBox .FoundFiles.Count & _
" 個のファイルが見つかりました。"
For i = 1 To .FoundFiles.Count
MsgBox Dir(.FoundFiles(i))
'※1
Next i
Else
MsgBox "検索条件を満たすファイルはありません。"
End If
End With
End Sub
|
|