IBM Lotus Symphony


SetAttr ステートメント [実行時]

指定されたファイルの属性情報を設定します。

構文:

SetAttr FileName As String, Attribute As Integer

パラメータ:

FileName: 属性をテストする、パスを含むファイル名。パスを入力しなかった場合、SetAttr は現在のディレクトリ内でファイルを検索します。URL 表記を使用することもできます。

Attribute: 設定またはクリアする属性を定義するビットパターン:

0 : 通常のファイル。

1 : 読み取り専用ファイル。

32 : ファイルは前回のバックアップの後に変更されています (Archive ビット)。

それぞれの値を論理 OR ステートメントで結合することにより、複数の属性を設定できます。

エラーコード

5 無効なプロシージャ呼び出しです

53 ファイルが見つかりません

70 アクセスが拒否されました

例:

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


製品フィードバック | その他の資料 | 商標