'------------------------------------------------------------------------------
'  ファイル日時取得（宣言）
'------------------------------------------------------------------------------
Type FILETIME
    dwLowDateTime  As Long
    dwHighDateTime As Long
End Type

Declare Function SetFileTime Lib "kernel32" (ByVal hFile As Long, _
        lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, _
        lpLastWriteTime As FILETIME) As Long


Dim w_hfil            As Long           ' ファイルハンドル
Dim w_create          As FILETIME       ' 作成日時
Dim w_access          As FILETIME       ' アクセス日
Dim w_write           As FILETIME       ' 更新日時
Dim w_ret             As Long           ' 戻り値

    ' ファイルの作成日時、アクセス日、更新日時を設定する
    w_ret = SetFileTime(w_hfil, w_creat, w_access, w_write)