| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
雷速体育发帖软件开发QQ118000023C语言培训|一对一辅导|零基础学编程LightningChart 快速先进的.Net图表控件
共有 392 人关注过本帖
标题:VFP 修改文档时间戳
只看楼主 收藏
schtg
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:14
帖 子:437
专家分:595
注 册:2012-2-29
结帖率:80%
  已结贴   问题点数:20  回复次数:7   
VFP 修改文档时间戳
请问各位大侠,VFP通过程序来修改某文档的时间戳,即创建时间、修改时间、访问时间?谢谢!
2018-01-04 21:23
xinjie
Rank: 6Rank: 6
等 级:贵宾
威 望:17
帖 子:229
专家分:436
注 册:2007-8-11
  得分:5 
https://wenku.baidu.com/view/4e66acdace2f0066f5332263.html

需要点儿API的功力。。。
2018-01-04 22:07
吹水佬
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:145
帖 子:5929
专家分:25869
注 册:2014-5-20
  得分: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
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:14
帖 子:437
专家分:595
注 册:2012-2-29
  得分:0 
@吹水佬,你的正解,谢谢!
@xinjie,确实需要一点API功底,谢谢!
2018-01-05 07:41
厨师王德榜
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:67
帖 子:433
专家分:1563
注 册:2013-2-16
  得分:0 
建议加精。
2018-01-05 09:26
星光悠蓝
Rank: 8Rank: 8
来 自:山水甲天下
等 级:贵宾
威 望:25
帖 子:300
专家分:741
注 册:2010-1-11
  得分:0 
好方法!
2018-01-05 13:49
schtg
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:14
帖 子:437
专家分:595
注 册:2012-2-29
  得分:0 
回复 5楼 厨师王德榜
哈哈,不好意思,不知道如何操作?请指导,谢谢!
2018-01-05 16:24
井绳
Rank: 2
等 级:论坛游民
帖 子:74
专家分:69
注 册:2010-6-29
  得分:0 
路过偷艺
2018-01-06 09:40







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.340808 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved