Текущий архив: 2003.02.13;
Скачать: CL | DM;

Вниз

Люди, кто знает как получить дату создания и или изменения файла   Найти похожие ветки 

← →
deep.1   (2003-01-01 05:03) [0]

я думаю это просто, но понятия не имею как

---

← →
Grab ©   (2003-01-01 05:43) [1]

function GetFileDate(FileName: string): string;
var
FHandle: Integer;
begin
FHandle := FileOpen(FileName, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
finally
FileClose(FHandle);
end;
end;

ЗЫ. Временами читай FAQ... Часто помогает не тревожить людей лишними вопросами...

---

← →
!...Stel   (2003-01-01 10:09) [2]

Можно ещё через FindFirsFile

procedure GetFileDate(FileName:pChar);
var
FIND_DATA:TWIN32FINDDATA;
begin
FindFirstFile(FileName, FIND_DATA);
FIND_DATA.ftCreationTime - Дата создания
FIND_DATA.ftLastWriteTime - Дата изменения
end;

---

← →
deep.1   (2003-01-01 14:53) [3]

спасибо

---

← →
Suntechnic ©   (2003-01-03 09:19) [4]

>!...Stel (01.01.03 10:09)
Не забывайте только за собой убирать:
FindClose

---

Страницы: 1 вся ветка

Текущий архив: 2003.02.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.022 c