JP1/Script(Windows(R)用)
GetFileAttribute ( PathName , AttrArrayBuff ) GetFileAttr ( PathName , AttrArrayBuff )
値 | 意味 |
---|---|
ATTR_READONLY | 読み込み専用ファイル |
ATTR_HIDDEN | 隠しファイル |
ATTR_ARCHIVE | アーカイブファイル |
ATTR_SUBDIR | サブディレクトリ |
ATTR_SYSTEM | システムファイル |
ATTR_TEMPORARY | 一時ファイル |
ATTR_COMPRESSED | 圧縮ファイル |
ATTR_NORMAL | ファイルには,特に属性はありません。 |
' 実行フォルダ下の一時ファイルを削除する。 Dim file_attr( ) For file = _SCF_+"*.*" Do ' ファイル属性を取得 GetFileAttribute ( file ,file_attr ) aryCnt = GetArrayCount ( file_attr ) ' 属性を格納した配列変数から一時ファイル属性を検索 For i = 1 To aryCnt If file_attr( i ) = ATTR_TEMPORARY Then ' ファイル削除 DeleteFile ( file , ExclDir ) Exit For End If Next End For
Copyright (C) 2012, Hitachi, Ltd.
Copyright (C) 2012, Hitachi Solutions, Ltd.