VBA

質問

ACCESS2003やEXCEL2003のVBAでプログラムしようとしています。

所定のフォルダ内にあるファイルを、ファイル名を指定して検索する方法を教えてください。

【条件】
(1)所定のフォルダ
　このフォルダには、大量のファイルがあります。
　サブフォルダも存在して、その中にも検索するファイルがあります。
　サブフォルダの階層もランダムです（サブフォルダの中にさらに
　フォルダがあり、その中にもファイルがある場合があります）。
　探すファイルは、複数存在する場合（フォルダ違いで）も
　ありますが、すべて検索します。

条件が酷のような気がしますが、なるべく早い検索方法はあれば
幸いです。よろしくお願いします。

回答No.2

nda23

Function 検索(ByVal フォルダ As String, ByVal ファイル As String)
　　Dim FSO, FLD
　　Set FSO = CreateObject("Scripting.FileSystemObject")
　　Set FLD = FSO.GetFolder(フォルダ)
　　ReDim 結果(0)
　　Dim 数 As Long
　　処理 FLD, ファイル, 結果, -1
　　If 数 >= 0 Then
　　　　検索 = 結果 '１個以上見つかった場合
　　Else
　　　　' == 見つからない場合
　　End If
End Function
Sub 処理(FLD, ファイル, 結果(), 数)
　　Dim SF
　　For Each SF In FLD.SubFolders
　　　　処理 SF, ファイル, 結果(), 数
　　Next
　　Dim N
　　For Each SF In FLD.Files
　　　　N = SF.Name 'ここでファイル名を得る
　　　　If N = ファイル Then
　　　　　　数 = 数 + 1
　　　　　　ReDim Preserve 結果(数)
　　　　　　結果(数) = SF.Path
　　　　End If
　　Next
End Sub
Function 検索 は見つけたファイルのパス名の配列を返します。

回答No.1

fujillin

検索すれば、参考になるものがいくらでも…

基本形（1つのファイル）
http://officetanaka.net/excel/vba/file/file06.htm

検索
http://www.moug.net/tech/exvba/0060051.htm
http://officetanaka.net/excel/vba/tips/tips36.htm
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_130.html