JP1/Script(Windows(R)用)
SetFileAttribute ( PathName , Attribute1 〔, Attribute2 , …〕 ) SetFileAttr ( PathName , Attribute1 〔, Attribute2 , …〕 )
| 値 | 意味 |
|---|---|
| ATTR_READONLY | 読み込み専用ファイル |
| ATTR_HIDDEN | 隠しファイル |
| ATTR_ARCHIVE | アーカイブファイル |
| ATTR_SYSTEM | システムファイル |
| ATTR_TEMPORARY | 一時ファイル ただし,PathNameにフォルダを指定した場合は,この属性は指定できません。 |
| ATTR_NORMAL | すべての属性を取り除きます。この属性は,単独で指定したときだけ有効です。 |
| 値 | 意味 |
|---|---|
| ATTR_ON (05-10以降) | Attribute1〜8で指定された属性だけを追加します。 |
| ATTR_OFF (05-10以降) | Attribute1〜8で指定された属性だけを取り除きます。 |
' ファイルのアーカイブ属性を取り除いておき,ファイル操作後にアーカイブ属性を
' チェックして,ファイルが更新されているかどうかを判定する。
Dim file1
file1 = "C:\TEMP\loging.tmp"
If IsFileAttribute ( file1 ,ATTR_ARCHIVE ) = True Then
SetFileAttribute ( file1 ,ATTR_ARCHIVE ,ATTR_OFF )
End
:
(ファイル操作)
:
If IsFileAttribute ( file1 ,ATTR_ARCHIVE ) = True Then
MessageBox ( file1+"は更新されました。" )
Else
MessageBox ( file1+"は更新されませんでした。" )
EndCopyright (C) 2012, Hitachi, Ltd.
Copyright (C) 2012, Hitachi Solutions, Ltd.