перебор файлов

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

← →
ЮЮ (2003-10-08 09:00) [2]

SearchRec.Name содержит только имя файла (без пути) и твоя функция анализирует 5 раз один и тот же файл. Добавь CopyPath ( и в FileExists тоже)

перебор файлов Найти похожие ветки