Дата создания файла

← →
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]

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

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

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

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

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

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

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