Desktop Management スクリプト言語 › 関数 › ファイル システム関数 › SetFileAttributes - ファイル属性の設定

SetFileAttributes - ファイル属性の設定

NetWare、Symbian OS、UNIX、Windows、および Windows CE で有効です。

SetFileAttributes 関数では、filename で指定されたファイルまたはディレクトリの属性が設定されます。

関数の形式

SetFileAttributes(filename as String,attr as Integer) as Boolean

filename

ファイル パスを指定します。

attr

設定する値を示します。

Windows

Windows でのファイル属性の値：

READONLY

値： 1

HIDDEN

値： 2

SYSTEM

値： 4

DIRECTORY

値： 16

ARCHIVE

値： 32

NORMAL

値： 128

TEMPORARY

値： 256

COMPRESSED

値： 2048

OFFLINE

値： 4096

例：

この例では AUTOEXEC.BAT の属性がレポートされ、［非表示］フラグの切り替えが行われます。

dim attr as integer
dim out as string

attr=GetFileAttributes("C:BAT")
if (attr<>-1) then
	 out=out+"Attributes: "+chr(9)+"["
	 if attr and FA_ARCHIVE then out=out+"A"
	 if attr and FA_SYSTEM then out=out+"S"
	 if attr and FA_HIDDEN then out=out+"H"
	 if attr and FA_RDONLY then out=out+"R"

	 out=out+"]"
	 MsgBox("Information on C:\AUTOEXEC.BAT"+chr(10)+chr(10)+out)
else
	 MsgBox("Cannot find C:\AUTOEXEC.BAT")
end if
if attr and FA_HIDDEN then
	attr = attr ? FA_HIDDEN
	SetFileAttributes("C:\AUTOEXEC.BAT", attr)
else
	attr = attr + FA_HIDDEN
	SetFileAttributes("C:\AUTOEXEC.BAT", attr)
End If
end: