前のトピック: RenameFile - ファイルの名前の変更または移動次のトピック: SetFileTime - ファイルまたはディレクトリのタイムスタンプ設定


SetFileAttributes - ファイル属性の設定

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

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

ファイルの内容に関するこの関数の形式は、以下のとおりです。

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

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

attr

設定する値を示します。

Windows

Windows で使用されるファイル属性値を以下のリストに示します。 パラメータ値は 10 進数です。

READONLY

値: 1

HIDDEN

値: 2

SYSTEM

値: 4

DIRECTORY

値: 16

ARCHIVE

値: 32

NORMAL

値: 128

TEMPORARY

値: 256

COMPRESSED

値: 2048

OFFLINE

値: 4096

UNIX でサポートされているファイル属性のリストについては、UNIX のファイル属性を参照してください。

例: SetFileAttributes 関数

この例では 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: