概要
業務効率化において、ファイル管理は避けて通れないタスクの一つです。「指定したフォルダ内のファイルのうち、特定の時期に更新されたものだけを抽出したい」「最後に更新されたファイルを取得したい」といった要望は、VBA開発の現場で頻繁に発生します。VBA100本ノックの57本目となるこのテーマは、FileSystemObject（FSO）を用いたファイル属性の操作という、実務で極めて汎用性の高いスキルを問うものです。本稿では、単に更新日時を取得する方法だけでなく、実務でのエラーハンドリングや効率的なリスト作成手法まで、ベテラン講師の視点で深く解説します。
詳細解説：FileSystemObjectの活用
VBAでファイル情報を扱う際、標準のFileDateTime関数を使う方法もありますが、大量のファイルを処理する場合や、特定のフォルダ内の情報を体系的に取得したい場合は、FileSystemObject（以下FSO）を利用するのが定石です。FSOはMicrosoft Scripting Runtimeライブラリに含まれる強力なオブジェクト群であり、ファイルやフォルダの属性に高速かつ柔軟にアクセスできます。
更新日時の取得におけるキーポイントは、FSOのFileオブジェクトが持つ「DateLastModified」プロパティです。これを用いることで、Date型として更新日時を取得でき、比較演算や条件分岐が極めて容易になります。
サンプルコード：指定フォルダ内のファイル一覧と更新日時を出力する
以下のコードは、指定したフォルダ内にある全ファイルのファイル名と最終更新日時を、アクティブシートのA列とB列に書き出すものです。
Sub GetFileLastModifiedDates()
' 参照設定不要で利用可能なLate Binding方式
Dim fso As Object
Dim folderPath As String
Dim targetFolder As Object
Dim fileItem As Object
Dim rowNum As Long
' フォルダパスの設定
folderPath = "C:\TestFolder\"
' FSOの生成
Set fso = CreateObject("Scripting.FileSystemObject")
' フォルダの存在確認
If Not fso.FolderExists(folderPath) Then
MsgBox "指定されたフォルダが存在しません。", vbCritical
Exit Sub
End If
Set targetFolder = fso.GetFolder(folderPath)
rowNum = 1
' ヘッダーの作成
Cells(rowNum, 1).Value = "ファイル名"
Cells(rowNum, 2).Value = "最終更新日時"
rowNum = rowNum + 1
' ファイルのループ処理
For Each fileItem In targetFolder.Files
Cells(rowNum, 1).Value = fileItem.Name
Cells(rowNum, 2).Value = fileItem.DateLastModified
rowNum = rowNum + 1
Next fileItem
' 列幅の自動調整
Columns("A:B").AutoFit
' オブジェクトの解放
Set fileItem = Nothing
Set targetFolder = Nothing
Set fso = Nothing
MsgBox "ファイル情報の取得が完了しました。", vbInformation
End Sub
詳細解説：コードのポイント
上記のサンプルコードでは、以下の3つの観点に配慮しています。
1. オブジェクトの存在チェック: フォルダパスが間違っている場合、FSOは実行時エラーを発生させます。`fso.FolderExists`を用いることで、事前に安全性を担保しています。
2. Late Bindingの採用: `CreateObject`を用いることで、VBEのツールメニューから「参照設定」を行う手間を省いています。これにより、配布したExcelファイルがどの環境でも（参照設定忘れによるエラーを起こさずに）動作しやすくなります。
3. オブジェクトの解放: VBAではメモリ管理が重要です。ループの終了後や処理の最後には、必ず`Set … = Nothing`を行い、メモリリークを防ぐ習慣を身につけましょう。
実務アドバイス：更なる応用を目指して
実務では、単に一覧を出すだけでなく、以下のような応用が求められます。
1. 条件付き抽出: 「更新日時が本日以降のファイルのみ抽出する」といったフィルタリング処理です。`If fileItem.DateLastModified >= Date Then`という条件式をループ内に組み込むだけで、簡単に実現できます。
2. サブフォルダの再帰処理: `targetFolder.SubFolders`をループさせ、階層構造にある全てのファイルを再帰的に取得する手法です。これは再帰関数（Recursive Function）を学ぶ絶好の機会となります。
3. パフォーマンスの向上: 数千件以上のファイルがある場合、セルへの逐次出力は非常に遅くなります。その際は配列（Array）に一度格納し、最後にシートへ一括転送する方法を強く推奨します。
また、更新日時の比較を行う際は、`Date`型で扱うことに注意してください。時分秒まで厳密に管理したい場合、`DateDiff`関数を併用することで、「最終更新から何分経過したか」といった判断も容易になります。
まとめ
VBA100本ノック57本目「ファイルの更新日時」は、ファイル管理系マクロの第一歩です。このスキルを習得することで、ログファイルの自動整理、バックアップ状況の監視、最新データの抽出といった、手作業ではミスが起きやすい業務を完全に自動化できます。
FSOは、一度習得すれば、コピー、移動、削除、リネームなど、あらゆるファイル操作に応用が利く強力な武器となります。今回の練習問題を通じて、単にコードを動かすだけでなく、「エラーが起きる可能性はどこか」「大量データでも耐えられるか」というエンジニア視点を持って開発に取り組んでください。VBAの習熟には、既存のコードを自分の業務に合わせて「書き換える」というプロセスが最も近道です。ぜひ、今日からあなたの業務フォルダの整理にこのコードを役立ててみてください。
