ふぢのＶＢ小技集

ファイルが読み取り専用かチェックしたい
（質問）
あるファイルが読み取り専用かどうかチェックする方法を教えてください。
（回答）
GetAttr関数を使用しましょう。
（解説）
GetAttr関数を使用すれば簡単にチェックできます。
以下の例を参考にして下さい。
なお、隠しファイルかどうか等もチェックできます。
詳しくは、GetAttr関数のヘルプを参照して下さい。


ファイルが読み取り専用かチェックする
 

    'ファイルの属性を取得する
    If (GetAttr(gstrIniPath) And vbReadOnly) = 1 Then

        'エラーメッセージ表示
        MsgBox "Iniファイルが読み込み専用の為、処理を継続することができませんでした。", _
               vbOKOnly + vbCritical + vbApplicationModal, "えらー"

        'プログラムを強制終了する
        End

    End If

戻る