如何读到一个文件的最后更新日期和时间 ( 积分: 50 )

从一个表 更新 另外一个表 如果前表没有修改则不更新  原表是个dbf文件 如何能得到它的最后更新日期时间 用来比较其是否更新过

从一个表 更新 另外一个表 如果前表没有修改则不更新  原表是个dbf文件 如何能得到它的最后更新日期时间 用来比较其是否更新过

引用以前的帖子：<br>type<br> &nbsp;TFileTimeType = (fttCreation, fttLastAccess, fttLastWrite);<br> &nbsp;//分别对应文件创建时间，访问时间，修改时间<br>function GetFileDateTime(const FileName: string; FileTimeType: TFileTimeType): TDateTime;<br>var<br> &nbsp;Handle: THandle;<br> &nbsp;FindData: TWin32FindData;<br> &nbsp;LocalFileTime: TFileTime;<br> &nbsp;DosDateTime: Integer;<br>begin<br> &nbsp;Handle := FindFirstFile(PChar(FileName), FindData);<br> &nbsp;if Handle &lt;&gt; INVALID_HANDLE_VALUE then<br> &nbsp;begin<br> &nbsp; &nbsp;Windows.FindClose(Handle);<br> &nbsp; &nbsp;if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then<br> &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp;case FileTimeType of<br> &nbsp; &nbsp; &nbsp;fttCreation:<br> &nbsp; &nbsp; &nbsp; &nbsp;FileTimeToLocalFileTime(FindData.ftCreationTime, LocalFileTime);<br> &nbsp; &nbsp; &nbsp;fttLastAccess:<br> &nbsp; &nbsp; &nbsp; &nbsp;FileTimeToLocalFileTime(FindData.ftLastAccessTime, LocalFileTime);<br> &nbsp; &nbsp; &nbsp;fttLastWrite:<br> &nbsp; &nbsp; &nbsp; &nbsp;FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);<br> &nbsp; &nbsp; &nbsp;end;<br> &nbsp; &nbsp; &nbsp;if FileTimeToDosDateTime(LocalFileTime, LongRec(DosDateTime).Hi,<br> &nbsp; &nbsp; &nbsp; &nbsp;LongRec(DosDateTime).Lo) then <br> &nbsp; &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp; &nbsp;Result := FileDateToDateTime(DosDateTime);<br> &nbsp; &nbsp; &nbsp; &nbsp;Exit;<br> &nbsp; &nbsp; &nbsp;end;<br> &nbsp; &nbsp;end;<br> &nbsp;end;<br> &nbsp;Result := -1;<br>end;<br><br>使用举例,获取文件最后修改时间：<br>ShowMessage(DateTimeToStr(GetFileDateTime('c:/key.txt',fttLastWrite)));