Func set_file_time
Lparameters lpFileName, ltCreationTime, ltLastAccessTime, ltLastWriteTime
Local lpReOpenBuff,wStyle,hFile
lpReOpenBuff=Replicate(Chr(0),250)
Store Space(8) To lpCreationTime, lpLastAccessTime, lpLastWriteTime
wStyle=1
hFile=OpenFile(lpFileName, lpReOpenBuff, wStyle)
GetFileTime(hFile,@lpCreationTime,@lpLastAccessTime,@lpLastWriteTime)
If Vartype(ltCreationTime)='T'
    lpCreationTime=STime2FTime(ltCreationTime)
Endif
If Vartype(ltLastAccessTime)='T'
    lpLastAccessTime=STime2FTime(ltLastAccessTime)
Endif
If Vartype(ltLastWriteTime)='T'
    lpLastWriteTime=STime2FTime(ltLastWriteTime)
Endif
SetFileTime(hFile,lpCreationTime,lpLastAccessTime,lpLastWriteTime)
CloseHandle(hFile)
Endfunc
*
Function STime2FTime
Lpara ltSTime
Local lcFTime, lnFTime, i, lnTmp
lnFTime=(ltSTime-{^1601/01/01 1:0:0})*10^7
lcFTime=''
For i=56 To 0 Step -8
    lnTmp=Int(lnFTime/(2^i))
    lnFTime=(lnFTime-lnTmp*(2^i))
    lcFTime=Chr(lnTmp)+lcFTime
Endfor
Return lcFTime

Declare Integer OpenFile In kernel32;
    STRING lpFileName,;
    STRING @ lpReOpenBuff,;
    INTEGER wStyle
Declare GetFileTime In kernel32;
    INTEGER hFile,;
    STRING @ lpCreationTime,;
    STRING @ lpLastAccessTime,;
    STRING @ lpLastWriteTime
Declare Integer SetFileTime In kernel32;
    INTEGER hFile,;
    STRING @ lpCreationTime,;
    STRING @ lpLastAccessTime,;
    STRING @ lpLastWriteTime
Declare Integer CloseHandle In kernel32.Dll ;
    INTEGER hObject