VBScriptを掌握する極限の知見：FSOで取得したファイルツリー構造をCSS付きの対話型HTMLレポートとして自動生成するツール

諸君、ファイルシステムオブジェクト（FSO）は、VBScriptにおける業務自動化の強力な要だ。しかし、その真価を単なるファイル操作ツールとして終わらせてはならない。我々が目指すのは、表層的なスクリプトではなく、情報としての価値を持つツールを創り出すことだ。

今回、私が諸君に伝授するのは、FSOを駆使して指定フォルダ配下のファイル構成・サイズ・更新日時を再帰的に取得し、ブラウザで閲覧可能な、見栄えの良い対話型HTML形式のファイル一覧レポートとして出力するツールだ。単なるファイルリストではない。それは、システムの状態を瞬時に把握し、意思決定を支援する「インテリジェンス」となる。

導入：FSOは単なるツールではない、情報アーキテクチャの根幹だ

VBScriptでファイルやフォルダを操作する際、多くの開発者は反射的に`Scripting.FileSystemObject`を呼び出すだろう。それは正しい。しかし、そのインスタンスがどのように生成され、どのようにリソースを消費し、いつ破棄されるべきか、そのオブジェクトのライフサイクルを深く理解している者は少ない。

ファイルシステムの情報を収集し、それを視覚的に優れたレポートとして提示することは、システムの健全性チェック、ディスク使用量の分析、セキュリティ監査、プロジェクト進捗管理など、多岐にわたる業務で不可欠だ。だが、手作業でのリストアップは非効率極まりない。ここで我々の出番となる。FSOを単なる「ファイル操作」から「情報アーキテクチャの構築」へと昇華させるのだ。

本記事では、単にコードを提示するだけでなく、なぜその設計が必要なのか、パフォーマンスや堅牢性、保守性の観点からどうあるべきかを、チーフアーキテクトとしての視点から徹底的に解説する。

FSO再訪：オブジェクトのライフサイクルとパフォーマンスの重み

FSOは、COMオブジェクトとして提供される。つまり、その生成、利用、そして破棄には、システムの管理するリソースが伴う。この事実を軽視する者は、メモリリークやパフォーマンス劣化、さらにはシステム不安定化の温床を作り出すことになる。

1. `FileSystemObject` のインスタンス管理

最も基本的なルールだが、再確認しよう。`FileSystemObject`のインスタンスは、必要な時に一度だけ生成し、処理が完了したら速やかに解放する。再帰処理の中で無駄にインスタンスを生成することは、愚の骨頂だ。

‘ 誤った例 (再帰関数内でFSOを何度も生成)
‘ Function ProcessFolder(folderPath)
‘ Set fso = CreateObject(“Scripting.FileSystemObject”) ‘ <-- これがNG ' ... ' Set fso = Nothing ' End Function ' 正しい例 (メインルーチンで一度だけ生成し、引数で渡す) ' Set fso = CreateObject("Scripting.FileSystemObject") ' Call ProcessFolder(fso, "C:\Target") ' Set fso = Nothing `Set Nothing`は、単なる習慣ではない。COMオブジェクトのリファレンスカウンタを減らし、オブジェクトがメモリから解放される契機を与える重要な操作だ。特に、大量のファイルやフォルダを扱う場合、これを怠るとメモリやファイルハンドルが枯渇し、スクリプトがクラッシュする可能性がある。

2. コレクションオブジェクトの取り扱い

`Folder.Files`や`Folder.SubFolders`は、ファイルやサブフォルダのコレクションを返す。これらのコレクションもまたオブジェクトだ。

‘ コレクションのイテレーションとオブジェクト解放
Dim objFile As Object
For Each objFile In objFolder.Files
‘ objFile を利用
‘ 例: WScript.Echo objFile.Path
Next
‘ 明示的な解放は不要だが、理解は重要
‘ objFile はループを抜けるとスコープを失うか、次の代入で上書きされる
‘ コレクションオブジェクト自体も、親のobjFolderが解放される際に解放される

重要なのは、`For Each`ループ内で、`objFile`や`objSubFolder`といったオブジェクトが指すリソースを適切に利用することだ。ファイルやフォルダのプロパティ（`Size`, `DateLastModified`など）へのアクセスは、ディスクI/Oを伴う可能性がある。不必要なプロパティアクセスはパフォーマンスの足を引っ張る。特に`Folder.Size`は、そのフォルダ内の全ファイルの合計サイズを計算するため、非常にコストが高い操作であることを常に意識せよ。

堅牢なファイルツリー走査の設計思想

我々が創り出すツールは、どんな環境でも期待通りに動作し、予期せぬエラーで停止しない「堅牢性」を持たねばならない。

1. 再帰処理の原理とVBScriptでの実装

ファイルツリー構造は、本質的に再帰的なデータ構造だ。これを処理するには、再帰関数が最も自然でエレガントな方法となる。

‘ 再帰処理の基本構造
Function TraverseFolder(ByVal fso, ByVal currentFolder)
‘ フォルダ内のファイル処理
For Each file In currentFolder.Files
‘ ファイル情報を収集し、HTMLに追加
Next

‘ フォルダ内のサブフォルダ処理 (再帰呼び出し)
For Each subFolder In currentFolder.SubFolders
Call TraverseFolder(fso, subFolder)
Next
End Function

重要なのは、再帰関数に`FileSystemObject`のインスタンスを引数として渡すこと。これにより、グローバル変数に依存しない、独立性の高い関数となり、保守性が向上する。

2. 徹底したエラーハンドリング

実務環境では、ファイルが見つからない、アクセス権がない、パスが長すぎるなど、様々なエラーが発生する。これらを適切に処理しなければ、スクリプトは簡単に停止し、信頼性を失う。

`On Error Resume Next`は諸刃の剣だ。無思慮に使うと、バグを見過ごし、問題の根本原因を隠蔽する。使うべきは、特定のエラーが予想される箇所に限定し、そのエラーを捕捉し、適切なリカバリロジックを記述する場合のみだ。

‘ 例: アクセス権限エラーの回避
On Error Resume Next ‘ ここからエラーを捕捉開始
For Each subFolder In currentFolder.SubFolders
‘ currentFolder.SubFolders 自体のアクセスでエラーが発生する可能性
If Err.Number <> 0 Then
‘ エラー処理: 例外ログの記録、HTMLレポートへの警告表示など
AddLog “WARNING: Could not access folder: ” & currentFolder.Path & “. Error: ” & Err.Description
Err.Clear ‘ エラーをクリアし、次の処理へ
Exit For ‘ このフォルダのサブフォルダ処理は諦める
End If

‘ サブフォルダ内のファイル/フォルダへのアクセスでもエラーは起こりうる
Call TraverseFolder(fso, subFolder)
If Err.Number <> 0 Then
AddLog “WARNING: Error processing subfolder: ” & subFolder.Path & “. Error: ” & Err.Description
Err.Clear
End If
Next
On Error GoTo 0 ‘ エラー捕捉を終了し、通常のVBScriptエラーハンドリングに戻す

特に、以下のようなエラーケースを想定し、対策を講じるべきだ。

• アクセス拒否: `FileSystemObject`が特定のファイルやフォルダにアクセスできない場合。
• パス長制限: WindowsのMAX_PATH（260文字）を超えるパス。FSOは対応している場合もあるが、他のツール（エクスプローラなど）で扱えなくなるため、警告が必要。
• ファイルが存在しない: 再帰中にファイルが削除された場合など。

3. パフォーマンス最適化の意識

先に述べた`Folder.Size`は、計算コストが高い。もし「フォルダの合計サイズ」が必須でなければ、個々のファイルのサイズのみを収集するに留めるべきだ。

また、不必要な文字列連結やオブジェクト生成もパフォーマンスを低下させる。大量のデータを扱う場合、効率的な文字列操作（`StringBuilder`のような機能はVBScriptにはないため、配列に格納してから`Join`するなど）を検討することも重要だ。

HTMLレポート生成：情報としての可視化

取得した生データを、どのようにユーザーフレンドリーな情報に変換するか。これがHTMLレポート生成の肝となる。

1. 構造化されたHTML生成

単に`WScript.Echo`で文字列を連結するだけでは、スパゲッティコードと化したHTMLが出力される。意味のあるHTMLタグ（`div`, `ul`, `li`, `span`など）を使用し、CSSでスタイリングしやすい構造を意識する。

ファイルツリーには、ネストされたリスト構造（`

`, `
• `）が最適だ。
  ►
  フォルダ名
  (サイズ)
  (更新日時)

  • ファイル名 (サイズ) (更新日時)
  • 別のファイル名 (サイズ) (更新日時)

  2. CSSによるスタイリングの適用

  見た目の美しさだけでなく、情報の階層性や重要度を視覚的に伝えるためにCSSは不可欠だ。

  • 外部CSS vs 内部CSS: 本ツールのように自己完結型であれば、`
    

    " & vbCrLf
    g_strHtmlOutput = g_strHtmlOutput & " " & vbCrLf
    g_strHtmlOutput = g_strHtmlOutput & "" & vbCrLf
    g_strHtmlOutput = g_strHtmlOutput & "" & vbCrLf
    g_strHtmlOutput = g_strHtmlOutput & "

    ファイルツリーレポート

    " & vbCrLf
    g_strHtmlOutput = g_strHtmlOutput & "

    " & vbCrLf
    g_strHtmlOutput = g_strHtmlOutput & "

    対象フォルダ: " & EscapeHtml(reportTitle) & "

    " & vbCrLf
    g_strHtmlOutput = g_strHtmlOutput & "

    レポート生成日時: " & FormatDateTime(Now(), vbLongDate) & " " & FormatDateTime(Now(), vbLongTime) & "

    " & vbCrLf
    g_strHtmlOutput = g_strHtmlOutput & "

    クリックでフォルダ/ファイルのパスをクリップボードにコピーできます。

    " & vbCrLf
    g_strHtmlOutput = g_strHtmlOutput & "

    " & vbCrLf
    End Sub

    ' ==============================================================================
    ' HTMLフッタ部分の生成
    ' ==============================================================================
    Sub BuildHtmlFooter()
    g_strHtmlOutput = g_strHtmlOutput & "

    " & vbCrLf
    g_strHtmlOutput = g_strHtmlOutput & "

    生成元: VBScript FileTree Report Tool © " & Year(Now()) & "

    " & vbCrLf
    g_strHtmlOutput = g_strHtmlOutput & "

    処理済みフォルダ数: " & g_intFolderCount & ", ファイル数: " & g_intFileCount & "

    " & vbCrLf
    g_strHtmlOutput = g_strHtmlOutput & "

    " & vbCrLf
    g_strHtmlOutput = g_strHtmlOutput & "" & vbCrLf
    g_strHtmlOutput = g_strHtmlOutput & "" & vbCrLf
    End Sub

    ' ==============================================================================
    ' HTMLをUTF-8 (BOM付き) でファイルに保存する
    ' ==============================================================================
    Sub SaveHtmlToFile(ByVal filePath, ByVal htmlContent)
    Const adTypeText = 2
    Const adSaveCreateOverWrite = 2
    Dim objStream

    On Error Resume Next ' ADODB.Streamオブジェクトの生成やファイル書き込み時のエラーを捕捉
    Set objStream = CreateObject("ADODB.Stream")
    If Err.Number <> 0 Then
    AddLog "ERROR: Failed to create ADODB.Stream object. Error: " & Err.Description
    WScript.Echo "致命的なエラー: ADODB.Streamの作成に失敗しました。スクリプトを終了します。"
    Exit Sub
    End If
    On Error GoTo 0

    With objStream
    .Type = adTypeText
    .Charset = "utf-8" ' UTF-8 BOM付きを指定
    .Open
    .WriteText htmlContent
    .SaveToFile filePath, adSaveCreateOverWrite
    .Close
    End With

    Set objStream = Nothing
    End Sub

    ' ==============================================================================
    ' ログメッセージを追加する
    ' ==============================================================================
    Sub AddLog(ByVal message)
    g_strLogOutput = g_strLogOutput & FormatDateTime(Now(), vbLongTime) & " " & message & vbCrLf
    End Sub

    ' ==============================================================================
    ' ログをファイルに保存する
    ' ==============================================================================
    Sub SaveLogToFile(ByVal filePath, ByVal logContent)
    Dim objStream

    On Error Resume Next
    Set objStream = CreateObject("ADODB.Stream")
    If Err.Number <> 0 Then
    WScript.Echo "ERROR: Failed to create ADODB.Stream for log. Log will not be saved."
    Exit Sub
    End If
    On Error GoTo 0

    With objStream
    .Type = adTypeText
    .Charset = "utf-8" ' ログもUTF-8で保存
    .Open
    .WriteText logContent
    .SaveToFile filePath, adSaveCreateOverWrite
    .Close
    End With
    Set objStream = Nothing
    End Sub

    ' ==============================================================================
    ' バイト数を読みやすい形式にフォーマットする
    ' ==============================================================================
    Function FormatBytes(ByVal bytes)
    Const KB = 1024
    Const MB = KB 1024
    Const GB = MB 1024

    If bytes >= GB Then
    FormatBytes = FormatNumber(bytes / GB, 2) & " GB"
    ElseIf bytes >= MB Then
    FormatBytes = FormatNumber(bytes / MB, 2) & " MB"
    ElseIf bytes >= KB Then
    FormatBytes = FormatNumber(bytes / KB, 2) & " KB"
    Else
    FormatBytes = bytes & " Bytes"
    End If
    End Function

    ' ==============================================================================
    ' HTML特殊文字をエスケープする
    ' ==============================================================================
    Function EscapeHtml(ByVal str)
    str = Replace(str, "&", "&")
    str = Replace(str, "<", "<") str = Replace(str, ">", ">")
    str = Replace(str, """", """)
    str = Replace(str, "'", "'")
    EscapeHtml = str
    End Function

    ' ==============================================================================
    ' コマンドを実行する (例: HTMLファイルをブラウザで開く)
    ' ==============================================================================
    Function RunCommand(ByVal command)
    Dim WshShell
    Set WshShell = CreateObject("WScript.Shell")
    On Error Resume Next
    WshShell.Run command, 1, False ' コマンドを実行し、結果を待たない
    If Err.Number <> 0 Then
    AddLog "ERROR: Failed to run command '" & command & "'. Error: " & Err.Description
    Err.Clear
    End If
    On Error GoTo 0
    Set WshShell = Nothing
    End Function

    ' ==============================================================================
    ' スクリプト開始
    ' ==============================================================================
    Call Main()

    実装上の注意点と拡張性：真のプロフェッショナルへ

    このツールは強力だが、実務環境は常に変化する。さらなる堅牢性と柔軟性を追求するために、以下の点を考慮せよ。

    1. 大規模フォルダへの対応:

    • 非常に深いツリー構造や、数百万ファイルに及ぶ大規模なフォルダでは、スクリプトの実行時間が長くなり、一時的なメモリ消費量が増大する可能性がある。VBScriptの限界として、スタックオーバーフローのリスクもゼロではない。
    • このような場合は、レポート生成をバックグラウンドプロセスとして実行したり、進捗状況をリアルタイムでコンソールに表示したりする工夫が必要になるだろう。
    • あるいは、レポート対象を特定の深さに制限するオプションを追加することも有効だ。

    2. 出力先パスのバリデーション:

    • ユーザーが入力する出力パスは、常に信頼できるとは限らない。存在しないドライブ、書き込み権限のない場所、予約文字を含むパスなどはエラーの原因となる。`g_fso.GetParentFolderName`や`g_fso.FolderExists`などを用いて、事前にチェックするロジックを強化すべきだ。

    3. レポート内容のカスタマイズ性:

    • 除外リスト: 特定のファイル名パターン（例: `.tmp`, `.bak`）やフォルダ名（例: `.git`, `node_modules`）を除外する機能は、レポートのノイズを減らし、本質的な情報に焦点を当てる上で非常に有効だ。正規表現を活用するのも良いだろう。
    • 表示項目: ファイルのMD5ハッシュ値、作成者情報、アクセス権限など、追加で表示したい情報が出てくるかもしれない。これらをオプションとして選択できるようにすることで、ツールの汎用性が高まる。

    4. ログ出力の強化:

    • 単なるエラーログだけでなく、処理の開始/終了時刻、処理済みファイル/フォルダ数、スキップされたアイテム（隠しファイルなど）の合計数など、詳細な統計情報をログに出力することで、スクリプトの動作状況をより正確に把握できるようになる。

    5. GUI化の検討:

    • VBScript単体では難しいが、HTA (HTML Application) や、VBScriptからWSH (Windows Script Host) の`Popup`メソッドなどを組み合わせることで、よりユーザーフレンドリーなインタフェースを提供することも可能だ。

    まとめ：FSOの真の力を解き放つために

    諸君、今回のツールは、FSOの表層的な使い方を超え、オブジェクトのライフサイクル、堅牢なエラーハンドリング、そして他技術（HTML/CSS/JavaScript）との連携という、多角的な視点から業務自動化を設計する重要性を示している。

    単にファイルをリストアップするだけでなく、それを「意味のある情報」として可視化し、対話性を持たせることで、我々の業務は飛躍的に効率化される。FSOは、単なるスクリプティングオブジェクトではない。それは、システムを深く理解し、その情報を価値ある形で提示するための強力な武器なのだ。

    このツールを起点として、諸君がさらに深くVBScriptの世界を探求し、真に「極限の知見」を掌握するエンジニアとなることを期待する。なぜこの書き方をするのか、どう設計すべきか、その問いを常に自らに投げかけ、思考を止めないこと。それが、伝説への道だ。