VPF::Найти и удалить файлы - Форум программистов

HoZeY

Дата 7.8.2009, 17:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 19.11.2008

Репутация: нет
Всего: нет

Здравствуйте! Есть две строчки в Мемо: file1.exe и file2.txt. После нажатия на кнопку "поиск" нужно начать поиск по всем разделам и папкам на компьютере. В конце поиска, если файл был найден, удалить файл и начать поиск file2.txt, после чего его тоже удалить. Подскажите как так организовать поиск и удаление файлов.
Надеюсь на вашу помощь. Спасибо.

smile

Данкинг

Дата 7.8.2009, 19:30 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Процедура для поиска файлов, её неоднократно уже выкладывали:

Код


procedure FindFiles(StartFolder, Mask: string; List: TStrings;
  ScanSubFolders: Boolean = True);
var
  SearchRec: TSearchRec;
  FindResult: Integer;
begin
  List.BeginUpdate;
  try
    StartFolder := IncludeTrailingBackslash(StartFolder);
    FindResult := FindFirst(StartFolder + '*.*', faAnyFile, SearchRec);
    try
      while FindResult = 0 do
        with SearchRec do
        begin
          if (Attr and faDirectory) <> 0 then
          begin
            if ScanSubFolders and (Name <> '.') and (Name <> '..') then
              FindFiles(StartFolder + Name, Mask, List, ScanSubFolders);
          end
          else
          begin
            if MatchesMask(Name, Mask) then
              List.Add(StartFolder + Name);
            application.ProcessMessages;
              end;
          FindResult := FindNext(SearchRec);
        end;
    finally
      FindClose(SearchRec);
    end;
  finally
    List.EndUpdate;
  end;
end;

Использование:

Код


FindFiles ('c:\','*.*',memo1.Items, true);

(последний параметр - учитывать ли каталоги. В твоём случае - да)

--------------------

There's nothing left but silent epitaphs.

Akella

Дата 8.8.2009, 21:37 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

Эх, не дал человеку и подумать smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »