Форум: "Начинающим";
Текущий архив: 2008.12.07;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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) ?

---

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

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


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

---

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

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

---

← →
MBo ©   (2008-10-29 09:14) [11]

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

---

← →
brother ©   (2008-10-29 09:15) [12]

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

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

---

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

Форум: "Начинающим";
Текущий архив: 2008.12.07;
Скачать: [xml.tar.bz2];

Наверх

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