программно удалить файлы

[mbrost]

пожалуйста, подскажите, как программно в дереве папок оставить файлы, в названии которых, например, есть 555, а остальные файлы во всех папках удалить?

[Serge_Bliznykov]

и на каком языке?
а что собственно вызывает вопрос - как найти такие файлы, которые оставить, или как прочие удалить?
А папки не трогать, только файлы удалять?

p.s. а вообще, опасная тулза получится - не там где надо запустишь - и кирдык всем файлам... ;(

[Grag]

Сообщение от Serge_Bliznykov

и на каком языке?
а что собственно вызывает вопрос - как найти такие файлы, которые оставить, или как прочие удалить?
А папки не трогать, только файлы удалять?

p.s. а вообще, опасная тулза получится - не там где надо запустишь - и кирдык всем файлам... ;(

Да не файлы удалить с носителя, наверное, а Ноды удалить из дерева файлов...

[mbrost]

Сообщение от Serge_Bliznykov

и на каком языке?
а что собственно вызывает вопрос - как найти такие файлы, которые оставить, или как прочие удалить?
А папки не трогать, только файлы удалять?

p.s. а вообще, опасная тулза получится - не там где надо запустишь - и кирдык всем файлам... ;(

файлы надо именно удалить - пусть в папке, предположим, с именем "111"- в ней и во всех её подпапках нужно удалить файлы, в имени которых есть, например, "555"

[Grag]

Сообщение от mbrost

файлы надо именно удалить - пусть в папке, предположим, с именем "111"- в ней и во всех её подпапках нужно удалить файлы, в имени которых есть, например, "555"

Если в Delphi, то примерно так:
Процедурами FindFirst(путь+имя файла) и FindNext(имя файла) ищешь нужный файл, а затем DeleteFile(путь+имя файла)...

[Serge_Bliznykov]

да не вопрос!
код на Delphi.
рекурсивно проходит папки, начиная от указанной.

удаляет файлы у которых в имени (или в расширении) есть 555 — напрочь!!

Использовать на свой страх и риск!

program DelMaskDir;

{$APPTYPE CONSOLE}

uses Sysutils;

  procedure ProceedDirTree( FromDir : string) ;
  var
    SearchRec : TSearchRec;
    Found : Integer;
    F     : file;
  begin
    Found := FindFirst( FromDir + '*.*', faAnyFile, SearchRec);
    while Found = 0 do
    begin
      if (SearchRec.Attr and faDirectory)<>0 then begin
       if (Trim(SearchRec.Name)<>'.') and
            (Trim(SearchRec.Name)<>'..') then
         ProceedDirTree( FromDir+SearchRec.Name+'\');
      end;
      if (SearchRec.Attr and faDirectory)=0 then
        // это значит файл нашли
        if Pos('555',SearchRec.Name)>0 then
          begin
            // удалить файл с именем SearchRec.Name
            AssignFile(F, FromDir+SearchRec.Name );
            Erase(F);
          end;
      Found := FindNext(SearchRec);
    end;
    FindClose(SearchRec);
  end;


begin

{  ProceedDirTree('ТУТ ПУТЬ К КОРНЕВОЙ ПАПКЕ ОТКУДА ИСКАТЬ\');}
 
  ProceedDirTree('C:\Temp\Delphi\111\');

  WriteLn('Done.');
  Readln
end.

[Grag]

Сообщение от Serge_Bliznykov

да не вопрос!

ProceedDirTree('C:\Temp\Delphi\111\ ');

WriteLn('Done.');
Readln
end.[/CODE]

Не-е-е... Лучше ProceedDirTree('C:\Windows\System32 \*.*');

[Serge_Bliznykov]

Не-е-е... Лучше ProceedDirTree('C:\Windows\System32 \*.*');

согласен! так лучше!

Но это не поможет - ведь программа же удалит ТОЛЬКО файлы, у которых в имени есть 555
а таких в каталоге Windows совсем мало

[Grag]

Сообщение от Serge_Bliznykov

согласен! так лучше!

Но это не поможет - ведь программа же удалит ТОЛЬКО файлы, у которых в имени есть 555
а таких в каталоге Windows совсем мало

По заданию как раз наоборот...