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