VBAのFileSearchと同じことをＶＢで行いたいのですが・・・

With Application.FileSearch '---FileSearchオブジェクトに対して
.LookIn = strPath '---検索するフォルダを指定
.SearchSubFolders = True '---サブフォルダも検索対象にする
.FileName = "*.lnk" '---検索するファイル名の指定
.FileType = msoFileTypeAllFiles '---検索対象はすべてのファイル
.Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending)
End With

上記のような処理をＶＢで行いたいのですが、記述の仕方がわかりません。
ＶＢにも上記のようなものはないでしょうか？

No.1 ベストアンサー 回答者： Hayashi_Trek 回答日時： 2003/03/22 22:57

２通りの方法があります。

１．FileSearchオブジェクトを使ってVBAと同じにする。
２．DIRコマンドでファイル検索の関数を作成する。

１．の場合は、「プロジェクト→参照」でFileSearchオブジェクトにチェックを付ければ良いでしょう。
２．の場合はサブフォルダも検索する処理をうまく実現する必要がある。サンプルはWeb検索で見つかります。

この回答へのお礼

回答ありがとうございます。

FileSearchオブジェクトにチェック、がどれのことなのか
よくわからないんです・・・
すみません。

お礼日時：2003/03/25 11:16

No.3 回答者： TAGOSAKU7 回答日時： 2003/03/23 00:00

過去スレ

参考URL：http://oshiete1.goo.ne.jp/kotaeru.php3?q=362508

No.2 回答者： noname#4564 回答日時： 2003/03/22 23:52

　

FileSearchオブジェクトはAccessにしかありません。
VBで同等の機能を実現するなら、

(1) FileSystemObject
(2) Dir関数で再帰的に処理。
(3) Win32API (FinFirstFileなど)

のどれかでしょう。一番簡単でお手軽なのは、(1)です。
サンプルプログラムもWEBで検索すればたくさんあるはず。
アーリーバインドする場合は、Micorsoft Scripting Runtime (SCRRUN.DLL)を
参照すればOKです。(レイトバインドでも可)
ただし、Windows 95の古いバージョンだと使えません。
　

この回答へのお礼

回答ありがとうございます。

（1）の方法で行おうと思うのですが、
FileSearchオブジェクトにチェックが分からないんです・・・

お礼日時：2003/03/25 11:17