Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.01.2010, 16:06   #1
Dzmitry Loktseu
Пользователь
 
Регистрация: 17.12.2009
Сообщений: 18
По умолчанию Сравнение папок

Поставленая задача: сравнить содержимое двух папок (условно Target и Source). Вывести список файлов, которые есть в папке Target но нет в папке Source.

P.S. Если в папке Target лежит файл как Target\1\1.dat а в папке Source он находится как Source\1.dat считать, что файла нет.

Сделал так:

Код:
procedure ScanDirTarget(const sDirTarget, sDirSource: string);
var
 nRes: Integer;
 sFileFound: string;
 sRec: TSearchRec;
begin
 nRes := FindFirst(sDirTarget + '\*.*', faAnyFile, sRec);
 while nRes = 0 do
 begin
   if (sRec.Name <> '.') and (sRec.Name <> '..') then
   begin
     if (sRec.Attr and faDirectory) = faDirectory then 
       ScanDirTarget(sDirTarget + '\' + sRec.Name, sDirSource + '\' + 
         sRec.Name)
     else
     begin
       sFileFound := sDirSource + '\' + sRec.Name; 
       if not FileExists(sFileFound) then
         form6.ListBox3.Items.Add(sFileFound)
     end;
   end;
   nRes := FindNext(sRec);
 end;
 FindClose(sRec);
end;
Может можно какие-то моменты упростить или что-то не учел. Вобщем, хотелось бы услышать критику.
Dzmitry Loktseu вне форума Ответить с цитированием
Старый 24.06.2013, 13:49   #2
wins-zloi
Новичок
Джуниор
 
Регистрация: 24.06.2013
Сообщений: 2
По умолчанию

Доброго времени суток не мог бы ты скинуть мне исходники пожалуйста=( Мне просто очень надо=)) напиши мне на ящик wins-zloi@mail.ru
wins-zloi вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
кипирование папок!! Dryg2009 Общие вопросы Delphi 8 24.10.2009 18:09
Поиск папок Artificial Помощь студентам 2 16.03.2008 22:30
Дерево папок Stanislav Общие вопросы Delphi 7 11.03.2008 22:26
поиск Папок Dukalis Общие вопросы C/C++ 3 17.01.2008 20:22
Дерево папок Mikola PHP 6 24.11.2007 01:39