文件时间修改器

文件时间修改器例子。修改文件时间，属性，支持拖放文件。
GetLocalTime (udtSystemTime) ' 取现行时间
SystemTimeToFileTime (udtSystemTime, udtLocalTime) ' 将现行时间转换格式
LocalFileTimeToFileTime (udtLocalTime, udtFileTime) ' 将本地文件时间转移为UTC文件时间
lngHandle ＝ CreateFile (编辑框文件名.内容, #GENERIC_WRITE, 位或 (#FILE_SHARE_READ, #FILE_SHARE_WRITE), 0, #OPEN_EXISTING, 0, 0) ' 打开文件返回文件句柄
.如果真 (lngHandle ≠ -1)
SetFileTime (lngHandle, udtFileTime, udtFileTime, udtFileTime) ' 设置文件创建时间，最后访问时间，最后写时间
CloseHandle (lngHandle) ' 关闭文件句柄
信息框 (“文件 '” ＋ 编辑框文件名.内容 ＋ “' 的时间已被修改为 ” ＋ 到文本 (取现行时间 ()), 0, “提示：”)