概要
日々の業務において、特定のフォルダ内に存在する大量のファイル名や属性情報をエクセルにリストアップする作業は、非常に頻繁に発生します。例えば、請求書データの管理、画像ファイルの整理、あるいはログファイルの集計など、その用途は多岐にわたります。従来、VBAでファイル操作を行う際には「Dir関数」が多用されてきましたが、Dir関数には「再帰的なフォルダ探索が難しい」「ファイル属性の詳細取得に限界がある」といった弱点があります。そこで本稿では、VBA上級者への登竜門であり、かつ実務で最も強力な武器となる「FileSystemObject（FSO）」を用いたファイル一覧作成手法を詳細に解説します。FSOを使いこなすことで、複雑な階層構造を持つフォルダ内の情報を、わずか数秒でエクセル上に展開することが可能になります。
FileSystemObjectの基本概念と導入のメリット
FileSystemObject（以下、FSO）は、Microsoft Scripting Runtimeライブラリに含まれるオブジェクトモデルです。これを利用することで、ファイルシステムに対する広範な操作が可能になります。FSOがDir関数よりも優れている点は、オブジェクト指向に基づいた直感的な記述ができることにあります。
具体的には「Folderオブジェクト」や「Fileオブジェクト」を操作対象として定義できるため、ファイル名だけでなく、最終更新日時、作成日時、ファイルサイズ、属性（読み取り専用や隠しファイルなど）といったメタデータを、プロパティとして簡単に呼び出せるのです。また、FSOはエラーハンドリングが容易であり、ネットワークドライブ上の操作や、深い階層のディレクトリ探索においても安定した動作を保証します。
詳細解説：FileSystemObjectを利用したファイル一覧作成のロジック
FSOを用いてファイル一覧を作成する際、基本となる流れは以下の通りです。
1. FileSystemObjectのインスタンスを作成する。
2. 対象となるフォルダをFolderオブジェクトとして取得する。
3. フォルダ内の各ファイルを「Filesコレクション」としてループ処理する。
4. 各ファイルのプロパティをエクセルのセルに転記する。
5. （必要に応じて）サブフォルダを再帰的に探索する。
特に重要なのが「再帰処理」の考え方です。フォルダの中に別のフォルダが存在する場合、単純なループではその中のファイルにアクセスできません。FSOでは、サブフォルダのコレクションをループ内でさらに回すことで、階層の深さを問わず全てのファイルを網羅することが可能です。この「再帰呼び出し」の実装こそが、業務効率化の鍵となります。
サンプルコード：指定フォルダ内のファイル一覧を取得する
以下に、指定したパスのファイル情報をエクセルに書き出す標準的なコードを示します。このコードは「Microsoft Scripting Runtime」ライブラリを参照設定することで、より高速かつ安全に動作します。
Sub GetFileListWithFSO()
Dim fso As Object
Dim targetFolder As Object
Dim fileItem As Object
Dim ws As Worksheet
Dim rowNum As Long
Dim folderPath As String
' 対象フォルダの指定
folderPath = "C:\SampleData"
Set fso = CreateObject("Scripting.FileSystemObject")
' フォルダが存在するか確認
If Not fso.FolderExists(folderPath) Then
MsgBox "フォルダが見つかりません。"
Exit Sub
End If
Set targetFolder = fso.GetFolder(folderPath)
Set ws = ThisWorkbook.Sheets(1)
' 見出しの設定
ws.Cells(1, 1).Value = "ファイル名"
ws.Cells(1, 2).Value = "サイズ(KB)"
ws.Cells(1, 3).Value = "更新日時"
rowNum = 2
' ファイル一覧の書き出し
For Each fileItem In targetFolder.Files
ws.Cells(rowNum, 1).Value = fileItem.Name
ws.Cells(rowNum, 2).Value = Int(fileItem.Size / 1024)
ws.Cells(rowNum, 3).Value = fileItem.DateLastModified
rowNum = rowNum + 1
Next fileItem
' オブジェクトの解放
Set fileItem = Nothing
Set targetFolder = Nothing
Set fso = Nothing
MsgBox "一覧作成が完了しました。"
End Sub
実務アドバイス：パフォーマンスと保守性を高めるために
実務でこのコードを運用する際、いくつか注意すべきポイントがあります。
第一に、「パフォーマンスの最適化」です。数万件のファイルを取得する場合、セルへの逐次書き込みは非常に時間がかかります。この場合、配列（Array）に一度格納し、最後に一括でセルへ出力するようにコードを改変することで、実行速度を劇的に向上させることができます。
第二に、「エラーハンドリング」の重要性です。アクセス権限のないフォルダや、システムによってロックされているファイルが存在する場合、コードが停止してしまいます。「On Error Resume Next」を適切に使用し、エラーが発生した際にはログを残すなどの対応を講じるべきです。
第三に、「参照設定の有無」です。上記のコードは「CreateObject」を使用しているため参照設定なしで動作しますが、開発環境では「ツール」→「参照設定」から「Microsoft Scripting Runtime」にチェックを入れることを強く推奨します。これを行うことで、IntelliSense（入力補完）が機能し、開発効率とコードの可読性が格段に向上します。
まとめ
FileSystemObjectを用いたファイル一覧作成は、単なる事務作業の自動化にとどまりません。これは、システム内の情報を体系的に把握し、管理するための強力な基盤技術です。Dir関数の制限から解放され、再帰的な探索や詳細なプロパティ取得が可能になることで、あなたは「膨大なファイルの中から目的のデータを探す」という無駄な時間から完全に解放されるでしょう。
本稿で紹介した基本構成を理解し、自身の業務環境に合わせてカスタマイズを繰り返すことで、VBAスキルは確実に次のステージへと到達します。コードを記述する際は、常に「この処理は再利用可能か」「エラーが発生した際にどう振る舞うべきか」という視点を忘れないでください。この小さな工夫の積み重ねこそが、真のプロフェッショナルなVBA開発者への道筋となります。ぜひ、明日からの業務でこのFSOの力を体感してください。
