CompTime ( Time1 , Comp , Time2 )
値 | 意味 |
---|---|
Equal | 等しい( = ) |
NotEqual | 等しくない( <> ) |
Before | Time1より,Time2の方が前の時刻である( > ) |
After | Time1より,Time2の方が後の時刻である( < ) |
' 作成時間が今日の午前中のファイルを削除する。
Dim fileName ,creDate ,creTime
For fileName = _TEMP_+"*.*" Do
GetFileTime ( _TEMP_+fileName ,creDate ,creTime ,Create )
If CompDate ( creDate ,Equal ,Date() ) Then
If CompTime ( creTime ,After ,"12:00:00" ) = True Then
DeleteFile ( _TEMP_+fileName )
End If
End If
End For