Скачать: CL | DM;

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

← →
ronyn   (2006-07-27 23:02) [0]

Сравниваю даты создания файлов вот так:
if fileexists(sn3+searchrec.Name) then   begin     //если файл существует то
                 sw:=(oldstartdir+searchrec.Name);                // вот тут надо пишет Делфи тип string и TSearchRec  привести
                 so:=(startdir+searchrec.Name);             // и тут тоже, хотя searchrec.NAME имеет тип TFileName
           if sw.Time>so.Time then begin deletefile(so);          //если дата создания первого позже даты создания второго
                                         copyfile(sw,so,1);          //то действия....
                                   end;

Собсно, какие ошибки? Как типы привести (TSearchRec и String)?
Есть лучший способ сравнить даты редактирования (создания) файлов?

                       Заранее благодарен.

<Цитата>

---

← →
KilkennyCat ©   (2006-07-27 23:06) [1]

Из чистого любопытсва: sw, so - чаво?

---

← →
KilkennyCat ©   (2006-07-27 23:07) [2]

и sn3 заодно

---

← →
ronyn   (2006-07-27 23:45) [3]

для удобства имя директорий так обозначил. sn3 - имя директории

---

← →
Kolan ©   (2006-07-28 00:32) [4]

> для удобства

Дааа.

---

← →
Джо ©   (2006-07-28 05:52) [5]

> [3] ronyn   (27.07.06 23:45)
> для удобства имя директорий так обозначил. sn3 - имя директории

Для удобства имя директории обозначают так: DirectoryName.

---

← →
ronyn   (2006-07-29 00:38) [6]

///
Таки ввопрос не в удобстве, а в том - как сравнить даты создания файлов?

---

← →
Германн ©   (2006-07-29 00:54) [7]

> Таки ввопрос не в удобстве, а в том - как сравнить даты
> создания файлов?


Таки ты до сих пор не ответил на
> KilkennyCat ©   (27.07.06 23:06) [1]
>
> Из чистого любопытсва: sw, so - чаво?

Т.е. пока тут нет ничего, кроме словоблудия

---

← →
Kolan ©   (2006-07-29 01:01) [8]

Как выяснить дату последнего изменения файла?

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

Взято с сайта http://blackman.wp-club.net/

А в хелпе:

Related Information
SysUtils.FileSetDate
SysUtils.FileDateToDateTime
SysUtils.FileAge
SysUtils.FileExists

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c