項目

ファイル/フォルダの属性を設定する(SetAttr)

概要

SetAttrを利用してファイル/フォルダの属性を設定する事ができます。
ファイルが開いていると実行時エラーが発生します。

例

Option Compare Database
Option Explicit

'++++++++++++++++++++++++++++++++++++++++++++++++++
'■ファイル/フォルダの属性を設定する(SetAttr)
'++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub コマンド0_Click()

    Dim pathName  As String
    Dim msg       As String

    pathName = "c:\temp\test.txt"       '設定するファイルのパス

    
    '++++++++++++++++++++++++++++++++++++++++++++++++
    '指定できる属性
    '++++++++++++++++++++++++++++++++++++++++++++++++
    'vbNormal:         通常ファイル
    'vbReadOnly:       読み取り専用ファイル
    'vbHidden:         隠しファイル
    'vbSystem:         システム ファイル(Mac不可)
    'vbDirectory:      フォルダ
    'vbArchive:        アーカイブ
    'vbAlias:          エイリアス ファイル(Macのみ)
    '++++++++++++++++++++++++++++++++++++++++++++++++

    '隠しファイルを設定
    SetAttr pathName, vbHidden

End Sub