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 ForCopyright (C) 2012, Hitachi, Ltd.
Copyright (C) 2012, Hitachi Solutions, Ltd.