Mega Code Archive

 

Categories / Delphi / Files

 

Dosyanin son degistirildigi tarih

Bu fonksiyon, FileName parametresi ile gönderilen dosyanin, son olarak degistirildigi tarihi bulmaya yarar. Function File_GetLastModifiedDate(FileName : String): TDateTime; var SearchRec : TSearchRec; DT : TFileTime; ST : TSystemTime; begin Result := 0; If Not FileExists(FileName) Then Exit; Try SysUtils.FindFirst(FileName, faAnyFile, SearchRec); Try FileTimeToLocalFileTime(SearchRec.FindData.ftLastWriteTime,DT); FileTimeToSystemTime(DT, ST); Result := SystemTimeToDateTime(ST); Finally SysUtils.FindClose(SearchRec); End; Except Result := 0; End; end;