VFP 修改文档时间戳 - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → VFP 修改文档时间戳

标题：VFP 修改文档时间戳

只看楼主

schtg

来　自：https://t.me/pump_upp
等　级：贵宾
威　望：67
帖　子：1355
专家分：2534
注　册：2012-2-29
结帖率：90%

楼主

已结贴√ 问题点数：20 回复次数：7

VFP 修改文档时间戳

请问各位大侠，VFP通过程序来修改某文档的时间戳，即创建时间、修改时间、访问时间？谢谢！

搜索更多相关主题的帖子: VFP　修改　文档　时间戳　时间　

2018-01-04 21:23

xinjie

等　级：贵宾
威　望：18
帖　子：257
专家分：501
注　册：2007-8-11

第 2 楼

得分:5

https://wenku.baidu.com/view/4e66acdace2f0066f5332263.html

需要点儿API的功力。。。

2018-01-04 22:07

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 3 楼

得分:15

参考：
DECLARE LONG CreateFile IN Kernel32 STRING@, LONG, LONG, STRING@, LONG, LONG, STRING@
DECLARE LONG CloseHandle IN Kernel32 LONG
DECLARE LONG SystemTimeToFileTime  IN Kernel32 STRING@, STRING@
DECLARE LONG LocalFileTimeToFileTime IN Kernel32 STRING@, STRING@
DECLARE LONG SetFileTime IN Kernel32 LONG, STRING@, STRING@, STRING@

cPath = "_test.txt"
hFile = CreateFile(cPath,0x40000000,0,NULL,0x03,0x80,NULL)
IF hFile == -1
    ? "打开文件失败"
    RETURN
ENDIF
    * SYSTEMTIME 结构，修改为2018/1/5其他为0
st = BINTOC(2018,"2RS");
   + BINTOC(1,"2RS") + 0h0000;
   + BINTOC(5,"2RS") + REPLICATE(0h00,8)
ft = REPLICATE(0h00,8) && FILETIME 结构
SystemTimeToFileTime(@st, @ft)
LocalFileTimeToFileTime(@ft, @ft) && 本地时间时间、UTC转换
SetFileTime(hFile, @ft, @ft, @ft) && 创建时间、最近访问时间和最近修改时间都为ft
CloseHandle(hFile)

[此贴子已经被作者于2018-1-4 23:15编辑过]

2018-01-04 23:10

schtg

来　自：https://t.me/pump_upp
等　级：贵宾
威　望：67
帖　子：1355
专家分：2534
注　册：2012-2-29

第 4 楼

得分:0

@吹水佬,你的正解，谢谢！
@xinjie，确实需要一点API功底，谢谢！

2018-01-05 07:41

厨师王德榜