NetWare、Symbian OS、UNIX、Windows、および Windows CE で有効です。
SetFileAttributes 関数では、filename で指定されたファイルまたはディレクトリの属性が設定されます。
ファイルの内容に関するこの関数の形式は、以下のとおりです。
SetFileAttributes(filename as String,attr as Integer) as Boolean
ファイル パスを指定します。
設定する値を示します。
Windows
Windows で使用されるファイル属性値を以下のリストに示します。 パラメータ値は 10 進数です。
値: 1
値: 2
値: 4
値: 16
値: 32
値: 128
値: 256
値: 2048
値: 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:
|
Copyright © 2013 CA.
All rights reserved.
|
|