With Application.FileSearch '---FileSearchオブジェクトに対して
.LookIn = strPath '---検索するフォルダを指定
.SearchSubFolders = True '---サブフォルダも検索対象にする
.FileName = "*.lnk" '---検索するファイル名の指定
.FileType = msoFileTypeAllFiles '---検索対象はすべてのファイル
.Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending)
End With
上記のような処理をVBで行いたいのですが、記述の仕方がわかりません。
VBにも上記のようなものはないでしょうか?
No.1ベストアンサー
- 回答日時:
2通りの方法があります。
1.FileSearchオブジェクトを使ってVBAと同じにする。
2.DIRコマンドでファイル検索の関数を作成する。
1.の場合は、「プロジェクト→参照」でFileSearchオブジェクトにチェックを付ければ良いでしょう。
2.の場合はサブフォルダも検索する処理をうまく実現する必要がある。サンプルはWeb検索で見つかります。
回答ありがとうございます。
FileSearchオブジェクトにチェック、がどれのことなのか
よくわからないんです・・・
すみません。
No.2
- 回答日時:
FileSearchオブジェクトはAccessにしかありません。
VBで同等の機能を実現するなら、
(1) FileSystemObject
(2) Dir関数で再帰的に処理。
(3) Win32API (FinFirstFileなど)
のどれかでしょう。一番簡単でお手軽なのは、(1)です。
サンプルプログラムもWEBで検索すればたくさんあるはず。
アーリーバインドする場合は、Micorsoft Scripting Runtime (SCRRUN.DLL)を
参照すればOKです。(レイトバインドでも可)
ただし、Windows 95の古いバージョンだと使えません。
回答ありがとうございます。
(1)の方法で行おうと思うのですが、
FileSearchオブジェクトにチェックが分からないんです・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Excel(エクセル) vba 転記するときの最終行について 2 2022/09/03 09:31
- Visual Basic(VBA) VBA初心者です 検索した数字の行に色をつける 5 2023/02/13 14:22
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Visual Basic(VBA) 追記する列を増やしたい 2つのデータを検索・照合して元データにないデータを下記マクロで商品名を追記し 9 2022/10/05 10:50
- Visual Basic(VBA) VBAで日付入力しているのですが 4 2023/03/02 11:25
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) Wordマクロで指定したフォルダ名に保存する方法について 8 2022/12/13 11:35
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ASP.net 教えてください!!(...
-
オブジェクトレベルとメタレベル
-
パワーポイントのVBAでテキスト...
-
VBAでvlookup関数から、別シー...
-
Excelで =EMBED("Acrobat Docu...
-
多人数のじゃんけんプログラム
-
MATLABプロットの線にアルファ...
-
Object型からDouble型へのキャスト
-
ブラウザ上でEXCELの印刷...
-
COMコンポーネントって何?
-
Outlook2007送信前の宛先確認の...
-
BufferedWriterのcloseメソッド
-
「天声人語」をインターネット...
-
DataGridViewの再描画。
-
DataGridViewでセルクリックイ...
-
グローバルIPとプライベートIP...
-
Eclipseで新規クラスを作成時、...
-
エクセルVBAで、条件に一致する...
-
PropertyGridの中央の縦線
-
「タイプ初期化子が例外をスロ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パワーポイントのVBAでテキスト...
-
Excelで =EMBED("Acrobat Docu...
-
EXCEL VBAにて動的にCheckBOXを...
-
ワイルドカード<?>と型パラメー...
-
C#でフォームのオブジェクト名...
-
VBAのWindowオブジェクトとWork...
-
vb.net オブジェクト指向につい...
-
COMコンポーネントって何?
-
オブジェクトレベルとメタレベル
-
ビジュアルC++でボタンの有...
-
時間帯判定をする。
-
LISTBOXの内容が更新されま...
-
VBA 同じ名前のオブジェクトを...
-
オブジェクト名をforループ内で...
-
Object型からDouble型へのキャスト
-
ADO オブジェクトの渡し方
-
bmp画像をjpegやpng画像に圧縮...
-
Vbで通常使用するプリンターを...
-
戻り値がクラスオブジェクト
-
VBAでvlookup関数から、別シー...
おすすめ情報