Форум: "Основная";
Текущий архив: 2003.10.20;
Скачать: [xml.tar.bz2];
Внизперебор файлов Найти похожие ветки
← →
td (2003-10-07 18:36) [0]Пишу функцию для восстановления данных. У меня в директории CopyPath есть пять подкаталогов (поколений) \1\, \2\ и т.д.
Чтобы выбрать что восстанавливать, вывожу в список ListBox1 время создания копий.
for i:=1 to 5 do
begin
if DirectoryExists(CopyPath+IntToStr(i)+"\") then
begin
ok:=false;
if FindFirst(CopyPath+IntToStr(i)+"\"+"*.*",faAnyFile,SearchRec)=0 then
begin
if FileExists(SearchRec.Name) then
//как только находится нормальный файл в директории, определяем время его создания
ok:=true;
while (not ok) and (FindNext(SearchRec)=0) do
if FileExists(SearchRec.Name) then
ok:=true;
if ok then
begin
FTime(SearchRec.Name, t1,t2); //моя функция, по имени файла определяется время создания и изменения файла
//работает верно - проверено годами :)
FormCopySel.ListBox1.Items.Add(DateToStr(T2)+" "+TimeToStr(T2)); //здесь заношу в список время создания копий
end;
FindClose(SearchRec);
end;
end;
end;
Ну поскольку папки остаются на месте, время создания копии я определею по первому файлу в папке.
Но почему-то в результате я имею в списке 5 одинаковых дат, хотя реально это не так.
Никак не пойму в чем дело. Может быть, что-то не то с SearchRec?
← →
td (2003-10-08 08:48) [1]up
← →
ЮЮ (2003-10-08 09:00) [2]SearchRec.Name содержит только имя файла (без пути) и твоя функция анализирует 5 раз один и тот же файл. Добавь CopyPath ( и в FileExists тоже)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.20;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c