【実務・中級編】【初心者向け】GetFolderで親フォルダのAttributes（属性）を確認し隠しフォルダ・システムフォルダを自動スキップする手法 – VBScript (Visual Basic Scripting Edition)解析バイブル

VBScript (Visual Basic Scripting Edition)

2026.11.06

【極限の設計】FSOによるフォルダ走査の罠を回避せよ：Attributesのビット演算を掌握する

【極限の設計】FSOによるフォルダ走査の罠を回避せよ：Attributesのビット演算を掌握する

業務自動化の現場において、スクリプトが「開発者のローカル環境では動いたのに、本番サーバーに持っていった途端にエラーで止まる」という事象は、決して珍しくない。その原因の多くは、ファイルシステムという「生（なま）の環境」に対する理解不足にある。

特に、`FileSystemObject` (FSO) を用いたフォルダ走査において、初心者が最も陥りやすい罠の一つが、「隠しフォルダ」や「システムフォルダ」の扱いだ。

本記事では、単にフォルダをループさせるだけのコードから脱却し、`Attributes` プロパティのビット演算を駆使して、堅牢かつプロフェッショナルなフォルダ走査を実装するための知見を伝授する。

1. なぜ、あなたの「属性チェック」は失敗するのか

多くの開発者が、フォルダが隠し属性かどうかを判定する際に、以下のようなコードを書いてしまう。

' 【致命的なアンチパターン：これでは動かない】
If objFolder.Attributes = 2 Then 
    ' 隠しフォルダならスキップする処理
End If

なぜこれが「致命的なミス」なのか。答えは単純だ。`Attributes` プロパティは、単一の値ではなく「ビットフラグの集合体」だからだ。

ビットフラグの正体

Windowsのファイル属性は、一つの数値の中に複数の情報を詰め込んでいる。
例えば、あるフォルダが「隠し属性(2)」であり、かつ「システム属性(4)」である場合、その値は `2 + 4 = 6` となる。

先ほどのコード `If objFolder.Attributes = 2` では、「値がぴったり2であるもの」しか判定できない。つまり、「隠し属性かつシステム属性」を持つフォルダ（値が6のフォルダ）を、隠しフォルダとして認識できずに突き進んでしまい、アクセス拒否エラーでスクリプトがクラッシュするのだ。

2. 解決策：ビット演算（AND）による「抽出」

プロフェッショナルな設計では、値が一致するかどうかではなく、「特定のビットが立っているか」を判定する。これには、ビット演算子の `And` を使用する。

正解のロジック

特定の属性が含まれているかを確認するには、以下の式を用いる。

' 【プロフェッショナルな判定手法】
' 隠し属性(2)が含まれているか？
If (objFolder.Attributes And 2) <> 0 Then
    ' 隠しフォルダである
End If

この `(Attributes And 2)` という操作は、「Attributesのビット列のうち、2のビット（2番目のビット）が1になっているか？」を抽出する操作だ。結果が `0` でなければ、その属性が含まれていることを意味する。

3. プロダクション品質のコード実装例

実務でそのまま使える、再帰的なフォルダ走査のテンプレートを提示する。単にスキップするだけでなく、エラーハンドリングとログ出力を考慮した、保守性の高い設計だ。

''' <summary>
''' 業務自動化用：堅牢なフォルダ走査エンジン
''' </summary>

Option Explicit

' 属性定数の定義（マジックナンバーを排除し、可読性を高める）
Const FSO_ATTRIB_READONLY = 1
Const FSO_ATTRIB_HIDDEN   = 2
Const FSO_ATTRIB_SYSTEM   = 4

Dim fso, targetPath
Set fso = CreateObject("Scripting.FileSystemObject")

' 実行対象パス（実務では引数や設定ファイルから取得すべき）
targetPath = "C:\Your\Target\Path"

' 処理開始
Call RecursiveFolderScan(targetPath)

' --- メインロジック ---

''' <summary>
''' 指定されたフォルダを再帰的に走査する
''' </summary>
''' <param name="folderPath">走査対象のパス</param>
Sub RecursiveFolderScan(folderPath)
    Dim objFolder, objSubFolder, objFile
    
    ' 1. フォルダの存在確認
    If Not fso.FolderExists(folderPath) Then
        WScript.Echo "[ERROR] Folder not found: " & folderPath
        Exit Sub
    End If

    On Error Resume Next ' アクセス権限エラー対策
    Set objFolder = fso.GetFolder(folderPath)
    
    If Err.Number <> 0 Then
        WScript.Echo "[SKIP] Access Denied: " & folderPath
        Err.Clear
        Exit Sub
    End If
    On Error GoTo 0

    ' 2. 属性チェック（隠しフォルダ・システムフォルダの除外）
    ' ビット演算を用いて、HiddenまたはSystem属性が立っているか判定
    If (objFolder.Attributes And (FSO_ATTRIB_HIDDEN Or FSO_ATTRIB_SYSTEM)) <> 0 Then
        ' WScript.Echo "[INFO] Skipping protected folder: " & objFolder.Path
        Exit Sub
    End If

    ' 3. ファイルの処理
    For Each objFile In objFolder.Files
        ' ここにファイル操作のロジックを記述
        ' 例: Call ProcessFile(objFile.Path)
        WScript.Echo "[PROCESS] File: " & objFile.Path
    Next

    ' 4. サブフォルダの再帰走査
    For Each objSubFolder In objFolder.SubFolders
        ' 再帰呼び出し
        RecursiveFolderScan objSubFolder.Path
    Next

    ' オブジェクトの解放（メモリリーク防止）
    Set objFolder = Nothing
End Sub

4. アーキテクトからの設計アドバイス

このコードを実務のシステムに組み込む際、以下の3点を忘れてはならない。

① エラーハンドリングの「局所化」

`On Error Resume Next` をスクリプトの冒頭に書くのは素人のすることだ。エラーハンドリングは、「エラーが予想される箇所（今回であれば `GetFolder` やファイル操作）」の直前・直後に限定せよ。広範囲に適用すると、本当のバグ（ロジックミス）を見逃す原因となる。

② ログ出力の重要性

業務ツールにおいて、`WScript.Echo` はデバッグ用だ。本番環境では、処理したパス、スキップしたパス、エラーが発生したパスを、日付スタンプ付きのテキストファイルやデータベースに記録する設計にせよ。これにより、「なぜあのファイルが処理されなかったのか？」という問い合わせに即座に答えられるようになる。

③ リソースのライフサイクル管理

FSOのオブジェクト（`Folder`, `File`, `SubFolder`）は、ループの中で大量に生成される。ループの終わりや関数の終了時には、必ず `Set obj = Nothing` を行い、オブジェクトの参照を解除すること。大規模なファイルシステムを走査する場合、この一手間がメモリリークを防ぎ、システムの安定性を左右する。

結論

VBScriptは古い言語かもしれない。しかし、その背後にある Windows のファイルシステム仕様は今も変わっていない。`Attributes` をビット演算で扱うという基礎をマスターすることは、単なるテクニックではない。「OSの挙動を予測し、例外を制御する」という、エンジニアとして最も重要な資質を養うことと同義である。

堅牢なコードを書け。それが、プロフェッショナルの流儀だ。