※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Execute メソッド (FileSearch オブジェクト)
FileSearch オブジェクトでは、指定したファイルの検索を開始します。
-
構文
-
expression.Execute(SortBy, SortOrder, AlwaysAccurate)
-
expression
必ず指定します。FileSearch オブジェクトを表すオブジェクト式を指定します。
-
SortBy
省略可能です。バリアント型 (Variant) の値を指定します。検索結果のファイルを並べ替えるときの基準を指定します。使用できる定数は、MsoSortBy
クラスの msoSortbyFileName (ファイル名)、 msoSortbyFileType (ファイルの種類)、 msoSortbyLastModified
(更新日時)、 msoSortbySize (サイズ) のいずれかです。
-
SortOrder
省略可能です。バリアント型 (Variant) の値を指定します。検索結果のファイル一覧を並べ替えるときの順序を指定します。使用できる定数は、MsoSortOrder
クラスの msoSortOrderAscending (昇順) または msoSortOrderDescending (降順) です。
-
AlwaysAccurate
省略可能です。ブール型 (Boolean) の値を指定します。True を指定すると、ファイル一覧が最後に更新されてから追加、変更、または削除されたファイルも検索の対象に含まれます。既定値は
True です。
|
Execute メソッド (FileSearch オブジェクト) の使用例
次の使用例は、[My Documents] フォルダの中で、ファイル名の拡張子が ".doc" のファイルをすべて検索し、条件を満たすファイルの名前と保存場所の一覧を表示します。また、検索結果のファイル一覧を、ファイル名の昇順で並べ替えます。 |
Set fs = Application.FileSearch
With fs
.LookIn = "C:\My Documents"
.Filename = "*.doc"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox .FoundFiles.Count & _
" 個のファイルが見つかりました。"
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "検索条件を満たすファイルはありません。"
End If
End With
|
|