'------------------------------------------------------------------------------
' ファイル日時取得(宣言)
'------------------------------------------------------------------------------
Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Declare Function GetFileTime 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 = GetFileTime(w_hfil, w_creat, w_access, w_write)
|