Option Compare Text
Option Explicit

Const OF_READ = &H0
Const OF_WRITE = &H1
Const OF_SHARE_EXCLUSIVE = &H10
Const OF_SHARE_DENY_NONE = &H40
Const OFS_MAXPATHNAME =  128 

Private Declare Function SetFileTime Lib "kernel32" (ByVal mHandle As Long, lpCreationTime _
    As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long
    
Private Declare Function GetFileTime Lib "kernel32" (ByVal mHandle As Long, lpCreationTime _
    As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long
    
Private Declare Function OpenFile Lib "kernel32" (ByVal lpFileSpec As String, _
    lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long
    
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Type OFSTRUCT
    cBytes As Byte
    fFixedDisk As Byte
    nErrCode As Integer
    Reserved1 As Integer
    Reserved2 As Integer
    szPathName(OFS_MAXPATHNAME) As Byte
End Type

Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type

Dim mresult
Dim mHandle As Long
Dim OpenFileStruct As OFSTRUCT
Dim mCreationTime As FILETIME
Dim mLastAccessTime As FILETIME
Dim mLastModifyTime As FILETIME


Public Sub Set_FileDateTime(ByVal file1 As String, ByVal file2 As String)
    On Error Resume Next
    mHandle = OpenFile(file1, OpenFileStruct, OF_READ Or OF_SHARE_DENY_NONE)
    mresult = GetFileTime(mHandle, mCreationTime, mLastAccessTime, mLastModifyTime)
    Call CloseHandle(mHandle)
    
    mHandle = OpenFile(file2, OpenFileStruct, OF_WRITE Or OF_SHARE_EXCLUSIVE)
    SetFileTime mHandle, mCreationTime, mLastAccessTime, mLastModifyTime
    CloseHandle mHandle
End Sub