VB6フォルダの属性を設定する

スポンサーリンク

VB6 では、FileSystemObject (FSO) から Folder オブジェクトを生成して、Attrubutes プロパティに対して設定します。ビットごとの OR (論理和) で、属性を追加することができます。

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

サンプルコード

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

VB6.0 以前
    ' パスを定数で定義する
    Const DIR_PATH As String = "C:\Hoge\"

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

    ' Folder オブジェクトを取得する
    Dim cFolder As Folder
    Set cFolder = cFso.GetFolder(DIR_PATH)

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

    ' 隠しファイル属性を追加する (論理和で追加する)
    cFolder.Attributes = cFolder.Attributes Or Hidden

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

関連するリファレンス

準備中です。

スポンサーリンク