Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
14-65642
k-man
2003-09-28 16:31
2003.10.20
Юридический вопрос


1-65455
Russko
2003-10-07 13:59
2003.10.20
Нахождение детерминанта


14-65611
Элина
2003-10-01 10:43
2003.10.20
ИМЯ ПРИНТЕРА


1-65474
Chaynic
2003-10-08 21:51
2003.10.20
Использование WM_CHANGEDEVICE


3-65388
Alek_1
2003-09-25 21:23
2003.10.20
Снова про FireBird!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский