IBM Lotus Symphony
|
指定されたファイルの属性情報を設定します。
SetAttr FileName As String, Attribute As Integer
FileName: 属性をテストする、パスを含むファイル名。パスを入力しなかった場合、SetAttr は現在のディレクトリ内でファイルを検索します。URL 表記を使用することもできます。
Attribute: 設定またはクリアする属性を定義するビットパターン:
値
0 : 通常のファイル。
1 : 読み取り専用ファイル。
32 : ファイルは前回のバックアップの後に変更されています (Archive ビット)。
それぞれの値を論理 OR ステートメントで結合することにより、複数の属性を設定できます。
Sub ExampleSetGetAttr
On Error Goto ErrorHandler REM Define target for error-handler
If Dir("C:¥test",16)="" Then MkDir "C:¥test"
If Dir("C:¥test¥autoexec.sav")="" THEN Filecopy "c:¥autoexec.bat", "c:¥test¥autoexec.sav"
SetAttr "c:¥test¥autoexec.sav" ,0
Filecopy "c:¥autoexec.bat", "c:¥test¥autoexec.sav"
SetAttr "c:¥test¥autoexec.sav" ,1
print GetAttr( "c:¥test¥autoexec.sav" )
終了
ErrorHandler:
Print Error
終了
end sub