CompDate ( Date1 , Comp , Date2 )
値 | 意味 |
---|---|
Equal | 等しい( = ) |
NotEqual | 等しくない( < > ) |
Before | Date1より,Date2の方が前の日付である( > ) |
After | Date1より,Date2の方が後の日付である( < ) |
' 30日以上前に作成された一時フォルダ下のファイルを削除する。
Dim fileName ,delDate ,creDate
delDate = CalcDate ( Date() ,Minus ,0 ,0 ,29 )
For fileName = _TEMP_+"*.*" Do
GetFileTime ( _TEMP_+fileName ,creDate , ,Create )
If CompDate ( creDate ,After ,deldate ) = True Then
DeleteFile ( _TEMP_+fileName )
End If
End For