VBA GetAttrで設定ファイルの「読み取り専用」属性を効率確認！運用保守のエラーを未然に防ぐ実務テクニック

運用中のシステムで、設定ファイル（例: Config.ini）を更新しようとしたら「アクセス拒否」や「ファイルが見つかりません」といったエラーに遭遇し、思わず頭を抱えた経験はありませんか？ 特に、ファイル属性が「読み取り専用」になっていることに気づかず、上書き保存を試みてエラーになるケースは、運用保守の現場でよくある「あるある」です。

VBAのGetAttr関数を使えば、ファイルの上書き前にこの「読み取り専用」属性を簡単に確認できます。しかし、その戻り値の扱いに少しコツが必要です。この記事では、GetAttrを正しく活用し、設定ファイルの書き込みエラーを未然に防ぐための実務的な方法を、VBAエキスパートの視点から詳しく解説します。

コピペで即解決！VBA GetAttr実務コード

以下のコードは、指定された設定ファイル（Config.iniを想定）が「読み取り専用」属性を持っているかどうかをチェックし、その結果をメッセージボックスで通知します。ファイルが存在しない場合も考慮した、運用保守に役立つ実用的なコードです。

Sub CheckConfigFileReadonlyAttribute()
    ' ☆ここに設定ファイルのフルパスを指定してください☆
    Const CONFIG_FILE_PATH As String = "C:\YourApp\Config.ini" 
    
    Const FILE_ATTRIBUTE_READONLY As Long = 1 ' 読み取り専用属性の値

    Dim fileAttributes As Long
    Dim fso As Object ' FileSystemObjectを使用
    
    Set fso = CreateObject("Scripting.FileSystemObject")

    ' --- ファイルの存在を確認する ---
    If Not fso.FileExists(CONFIG_FILE_PATH) Then
        MsgBox "指定された設定ファイルが見つかりません: " & CONFIG_FILE_PATH, vbExclamation, "ファイルエラー"
        Set fso = Nothing
        Exit Sub
    End If

    ' --- GetAttr関数でファイル属性を取得 ---
    fileAttributes = GetAttr(CONFIG_FILE_PATH)

    ' --- 読み取り専用属性が設定されているかチェック ---
    ' ここがポイント！And演算子を使ってビットフラグを判定します。
    If (fileAttributes And FILE_ATTRIBUTE_READONLY) = FILE_ATTRIBUTE_READONLY Then
        MsgBox "設定ファイル '" & CONFIG_FILE_PATH & "' は「読み取り専用」属性が設定されています。上書き保存はできません。", vbInformation, "属性確認"
        ' ★ここに読み取り専用の場合の処理を記述★
        ' 例: ユーザーに警告後、処理を中断する、属性変更を促す、など
    Else
        MsgBox "設定ファイル '" & CONFIG_FILE_PATH & "' は「読み取り専用」属性が設定されていません。書き込み可能です。", vbInformation, "属性確認"
        ' ★ここに書き込み可能の場合の処理を記述★
        ' 例: ファイルを開いて内容を更新する、など
    End If

    Set fso = Nothing
End Sub

【重要】GetAttrの「ビットフラグ」とAnd演算子の理解

GetAttr関数は、指定されたファイルの属性を示す数値を返します。ここで重要なのが、この戻り値が単一の属性を表すだけでなく、複数の属性が設定されている場合は、それらの属性値の「合計（ビットフラグ）」として返される点です。

例えば、「読み取り専用」属性の値は 1 ですが、「アーカイブ」属性は 32 です。もしファイルが「読み取り専用」かつ「アーカイブ」属性を持つ場合、GetAttrは 1 + 32 = 33 を返します。この 33 は、バイナリで表現すると 00100001 となり、特定のビットが立っているかを確認する必要があるわけです。

そこで登場するのが「And演算子」です。And演算子を使うことで、戻り値のビットフラグの中から、特定の属性に対応するビットが立っているかどうかを正確に判定できます。

If (fileAttributes And FILE_ATTRIBUTE_READONLY) = FILE_ATTRIBUTE_READONLY Then
    ' 読み取り専用属性が設定されている
End If

この記述は「fileAttributesが持つ属性の中に、FILE_ATTRIBUTE_READONLYの属性が含まれているか？」を問いかけています。これにより、たとえ他の属性が同時に設定されていても、GetAttrの戻り値から「読み取り専用」属性だけを正確に抽出して判定できるのです。

よく使うファイル属性の定数は以下の通りです。

• FILE_ATTRIBUTE_NORMAL = 0 (通常のファイル)
• FILE_ATTRIBUTE_READONLY = 1 (読み取り専用)
• FILE_ATTRIBUTE_HIDDEN = 2 (隠しファイル)
• FILE_ATTRIBUTE_SYSTEM = 4 (システムファイル)
• FILE_ATTRIBUTE_VOLUME = 8 (ボリュームラベル)
• FILE_ATTRIBUTE_DIRECTORY = 16 (ディレクトリ)
• FILE_ATTRIBUTE_ARCHIVE = 32 (アーカイブ)
• FILE_ATTRIBUTE_COMPRESSED = 128 (圧縮ファイル)

まとめ：GetAttrで賢くエラーを回避し、安定運用を！

VBAのGetAttr関数とAnd演算子を組み合わせることで、設定ファイルなどの「読み取り専用」属性を正確に確認し、ファイル書き込み時の予期せぬエラーを未然に防ぐことができます。

運用保守の現場では、ちょっとした事前チェックが大きなトラブル回避に繋がります。今回ご紹介した実務コードをぜひ活用し、安定したシステム運用に役立ててください。さらに踏み込んで、属性変更（SetAttr関数）のロジックを組み込むことで、より堅牢なVBAアプリケーションを構築することも可能です。

安全なファイル操作は、運用保守の基本。VBAエキスパートとして、このテクニックをマスターし、日々の業務を効率化しましょう！