VB6ファイルの属性を取得する

スポンサーリンク

VB6 では、FileSystemObject (FSO) から File オブジェクトを生成して、Attrubutes プロパティから取得します。ビットごとの AND (論理積) で、どの属性が設定されているかを取得することができます。

FileSystemObject を使用する場合は、[プロジェクト] メニューの [参照設定] を選択して「Microsoft Scripting Runtime」にチェックを付けてください。

サンプルコード

以下にサンプルコードを示します。

VB6.0 以前
    ' FileSystemObject (FSO) の新しいインスタンスを生成する
    Dim cFso As FileSystemObject
    Set cFso = New FileSystemObject

    ' File オブジェクトを取得する
    Dim cFile As File
    Set cFile = cFso.GetFile("C:\Hoge.txt")

    ' 不要になった時点で参照を解放する (Terminate イベントを早めに起こす)
    Set cFso = Nothing

    ' 読み取り専用属性があるかどうか判断する (論理積で判断する)
    If (cFile.Attributes And ReadOnly) = ReadOnly Then
        Call MsgBox("読み取り専用属性があります")
    End If

    ' 隠しファイル属性があるかどうか判断する (論理積で判断する)
    If (cFile.Attributes And Hidden) = Hidden Then
        Call MsgBox("隠しファイル属性があります")
    End If

    ' 不要になった時点で参照を解放する (Terminate イベントを早めに起こす)
    Set cFile = Nothing

関連するリファレンス

準備中です。

スポンサーリンク