Время создания файла

← →
b@v © (2008-10-29 07:02) [0]

Подскажите как можно узнать время создания файла и сравнить его с системным временем ПК ? Делаю что то типа :

var File_Rec: TSearchRec; DateTime:TDateTime; begin FindFirst(put + "\1.txt", 1, File_Rec); DateTime := FileDateToDateTime(File_Rec.Time); showMessage("Дата и время: " + DateTimeTostr(DateTime));

где тут что не правильно может быть ?

← →
b@v © (2008-10-29 07:04) [1]

Ну да end конечно забыл в конце, но не в этом конечно ошибка :-)

var File_Rec: TSearchRec; DateTime:TDateTime; begin FindFirst(put + "\1.txt", 1, File_Rec); DateTime := FileDateToDateTime(File_Rec.Time); showMessage("Дата и время: " + DateTimeTostr(DateTime)); end;

← →
MBo © (2008-10-29 07:11) [2]

TSearchRec.FindData.ftCreationTime

И что за 1 в FindFirst?

← →
b@v © (2008-10-29 07:29) [3]

> И что за 1 в FindFirst?
>

faAnyFile - можно впринципе и так

← →
brother © (2008-10-29 07:30) [4]

> faAnyFile

нужно так, дабы читабельность кода была...

← →
b@v © (2008-10-29 07:37) [5]

Впринципе добился того, что показывает дату и время. Но еще вопросик, а как перебрать все файлы в нужном каталоге, а то только когда указываешь конкретный файл, то все ОК, но мне надо узнать по всем файлам.

у меня получилось во так :

procedure TForm1.Button2Click(Sender: TObject); var r : integer; SR : tSearchRec; begin put := DirectoryListBox1.Directory; r := FindFirst(put + "\2.txt", faAnyFile, SR); if r = 0 then begin Memo1.Lines.Add("Дата и время : "+ FormatDateTime("mm/dd/yyyy hh:nn:ss",FileAccessDateToDateTime(SR.FindData.ftCreationTime))); FindClose(SR); end; end;

← →
MBo © (2008-10-29 07:40) [6]

>как перебрать все файлы в нужном каталоге
маска *.* + findNext

← →
b@v © (2008-10-29 08:44) [7]

> маска *.* + findNext

Делаю так, но что то он берет тока 1 файл и то с непонятной датой и временем ?

procedure TForm1.Button3Click(Sender: TObject); var r : integer; SR : tSearchRec; begin put := DirectoryListBox1.Directory; r := FindFirst(put + "\*.*", faAnyFile, SR); if r = 0 then begin Memo1.Lines.Add(Файл создан : "+ FormatDateTime("mm/dd/yyyy hh:nn:ss",FileAccessDateToDateTime(SR.FindData.ftCreationTime))); r := FindNext(SR); // FindClose(SR); end; end;

где что может быть неправильно ?

← →
MBo © (2008-10-29 08:55) [8]

а где у тебя цикл (while) ?

> а где у тебя цикл (while) ?

Виноват, уже нашел, спасибо :-)

С файлами вроде разобрался, а можно ли еще в этом же каталоге удалить все пустые подкаталоги ?

http://www.delphimaster.ru/cgi-bin/search.pl?words=findfirst&n=101

> С файлами вроде разобрался, а можно ли еще в этом же каталоге
> удалить все пустые подкаталоги ?

одна тема - один вопрос ;)

Время создания файла Найти похожие ветки