如何查询文件上上次的修改日期?
5个回答
2013-07-25
展开全部
//获取文件最后修改日期
function GetFileModifyDate(FileName: String): TDateTime;
var FileHandle : THandle;
LocalFileTime : TFileTime;
DosFileTime : DWORD;
LastModifyTime : TDateTime;
FindData : TWin32FindData;
begin
Result := 0;
FileHandle := FindFirstFile(PChar(FileName), FindData);
if FileHandle <> INVALID_HANDLE_VALUE then
begin
Windows.FindClose(FileHandle);
if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
begin
FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);
FileTimeToDosDateTime(LocalFileTime,
LongRec(DosFileTime).Hi,LongRec(DosFileTime).Lo);
LastModifyTime := FileDateToDateTime(DosFileTime);
Result:=LastModifyTime;
end;
end;
end;
function GetFileModifyDate(FileName: String): TDateTime;
var FileHandle : THandle;
LocalFileTime : TFileTime;
DosFileTime : DWORD;
LastModifyTime : TDateTime;
FindData : TWin32FindData;
begin
Result := 0;
FileHandle := FindFirstFile(PChar(FileName), FindData);
if FileHandle <> INVALID_HANDLE_VALUE then
begin
Windows.FindClose(FileHandle);
if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
begin
FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);
FileTimeToDosDateTime(LocalFileTime,
LongRec(DosFileTime).Hi,LongRec(DosFileTime).Lo);
LastModifyTime := FileDateToDateTime(DosFileTime);
Result:=LastModifyTime;
end;
end;
end;
2013-07-25
展开全部
右击点属性,完后就能看出来
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-07-25
展开全部
上上次无法看到,只能看到目前你修改的时间
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-07-25
展开全部
要想查看文件的修改日期和大小,可以使用详细资料方式显示文件。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-07-25
展开全部
用属性 来查看
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询