FileSystemObjectを使用
下記の理由がある為、Dir()は使わずFileSystemObjectを使います。
参照設定
FileSystemObjectを使えるようにMicrosoft Scripting Runtimeを参照。
Microsoft Scripting Runtimeの参照設定をしなくてもFileSystemObjectを使う方法はあります。
ですが、下記のようなメリットがある為、個人的には参照設定して使うのがおススメです。
- コンパイルチェックで入力ミスをあぶりだせる
- Ctrl + スペースで候補が出てきてコーディングが楽
やり方（とにかく全ファイル）
Dim fso_ As New Scripting.FileSystemObject
Debug.Print fso_.GetFolder("フォルダーパス").Files.Count
GetFolder()について、フォルダーパスの末尾に『\』が付いても、付いていなくても、どちらでも動作に変わりは無い。
存在しないフォルダーを指定した場合は下記の例外。
実行時エラー76
パスが見つかりません。
やり方（特定の拡張子のファイル）
Dim fso_ As New Scripting.FileSystemObject
Dim file_ As Scripting.File
Dim count_ As Long: count_ = 0
For Each file_ In fso_.GetFolder("フォルダーパス").Files
If fso_.GetExtensionName(file_) = "csv" Then
count_ = count_ + 1
End If
Next
Debug.Print count_
GetExtensionName() で取得できる文字列に『.』は付かない。
蛇足
特定の拡張子のファイル数を取りたい時、For Each回すのは若干面倒。
ワイルドカードでサクッとカウント取る方法が見つからなかった…。
でもあらかじめFor Eachで作っておくと、『ファイル作成日』や『その他の属性』によって条件分岐したい、なんて要件が出てきた時は楽。
参考サイトさん
バージョン
Windows 10 Pro 21H2 OSビルド 19044.2130
Microsoft Access for Microsoft 365 MSO (バージョン 2209 ビルド 16.0.15726.20068) 32 ビット