удалить файлы и папки

[Serge_Bliznykov]

полную программу, говорите?...


ну, извольте:

implementation
{$R *.DFM}

uses FileCtrl;

function MyRemoveDir(sDir : string) : Boolean;
var
  iIndex: Integer;
  SearchRec: TSearchRec;
  sFileName: string;
begin
  Result := False;
  sDir := sDir + '\*.*';
  iIndex := FindFirst(sDir, faAnyFile, SearchRec);

  while iIndex = 0 do
  begin
    sFileName := ExtractFileDir(sDir)+'\'+SearchRec.name;
    if SearchRec.Attr = faDirectory then
    begin
      if (SearchRec.name <> '' ) and (SearchRec.name <> '.') and
      (SearchRec.name <> '..') then
        MyRemoveDir(sFileName);
    end
    else
    begin
      if SearchRec.Attr <> faArchive then
        FileSetAttr(sFileName, faArchive);
      if not DeleteFile(sFileName) then
        ShowMessage('Could NOT delete ' + sFileName);
    end;
    iIndex := FindNext(SearchRec);
  end;

  FindClose(SearchRec);
  //RemoveDir(ExtractFileDir(sDir));
  Result := True;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  sIn, path : string;
begin
  if Memo1.lines.Count < 1 then begin
    Application.MessageBox('Мемо вообще пуст. Делать нечего! Выходим...', 'Ошибка', MB_ICONERROR or MB_OK);
    Exit;
  end;
  sIn := Memo1.lines[0];
  if Pos('DEL ', UpperCase(sIn))<>1 then  begin
    Application.MessageBox('В первой строчке Мемо нет команды DEL! Выходим...', 'Ошибка', MB_ICONERROR or MB_OK);
    Exit;
  end;
  path:=copy(sIn, 5, length(sIn) - 5 +1);
  if Not DirectoryExists(path) then begin
    Application.MessageBox(PChar('Каталог '+path+' не найден! Выходим...'),
                             'Ошибка', MB_ICONERROR or MB_OK);
    Exit;
  end;
  if Application.MessageBox(Pchar('Вы хотите очистить каталог '+path+' ? '),
         'Подтверждение', MB_ICONQUESTION or MB_OKCANCEL) = IDOK then begin
      MyRemoveDir(path);
      Application.MessageBox('Удаление содержимого произведено!',
                      'Информация', MB_ICONINFORMATION or MB_OK);
  end;
end;

p.s. обратите внимание, что для подключения функции DirectoryExists потребовалось подключить модуль FileCtrl

[hacknet]

огромное человеческое спасибо!

[Stilet]

http://www.programmersforum.ru/showthread.php?t=20268
Это меньше писать чем классический вариант Сержа

[Serge_Bliznykov]

Stilet
Виталий, если Вы про ShFileOperation с функцией FO_DELETE - то данный код (с рекурсией) делает немножко другое - MyRemoveDir удаляет содержимое папок, а сами папки остаются... Впрочем, не уверен, что hacknet это нужно (я про оставить пустую структуру папок)...
Кроме того, код с ShFileOperation сам не возьмёт имя удаляемой папки из Memo....

впрочем, согласен - знать и уметь применять разные "виды оружия" — это большой плюс.
Пусть интересующиеся (кто зайдёт в эту тему) знают, что задачу удаления папок можно и одной системной функцией выполнить, не обязательно перебирать рекурсивно все папки...

[Stilet]

MyRemoveDir удаляет содержимое папок, а сами папки остаются

А я и не говорил что твой пример - некондишн. Я просто сказал что можно меньше кода трухнуть.

[hacknet]

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

полную программу, говорите?...


ну, извольте:

implementation
{$R *.DFM}

uses FileCtrl;

function MyRemoveDir(sDir : string) : Boolean;
var
  iIndex: Integer;
  SearchRec: TSearchRec;
  sFileName: string;
begin
  Result := False;
  sDir := sDir + '\*.*';
  iIndex := FindFirst(sDir, faAnyFile, SearchRec);

  while iIndex = 0 do
  begin
    sFileName := ExtractFileDir(sDir)+'\'+SearchRec.name;
    if SearchRec.Attr = faDirectory then
    begin
      if (SearchRec.name <> '' ) and (SearchRec.name <> '.') and
      (SearchRec.name <> '..') then
        MyRemoveDir(sFileName);
    end
    else
    begin
      if SearchRec.Attr <> faArchive then
        FileSetAttr(sFileName, faArchive);
      if not DeleteFile(sFileName) then
        ShowMessage('Could NOT delete ' + sFileName);
    end;
    iIndex := FindNext(SearchRec);
  end;

  FindClose(SearchRec);
  //RemoveDir(ExtractFileDir(sDir));
  Result := True;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  sIn, path : string;
begin
  if Memo1.lines.Count < 1 then begin
    Application.MessageBox('Мемо вообще пуст. Делать нечего! Выходим...', 'Ошибка', MB_ICONERROR or MB_OK);
    Exit;
  end;
  sIn := Memo1.lines[0];
  if Pos('DEL ', UpperCase(sIn))<>1 then  begin
    Application.MessageBox('В первой строчке Мемо нет команды DEL! Выходим...', 'Ошибка', MB_ICONERROR or MB_OK);
    Exit;
  end;
  path:=copy(sIn, 5, length(sIn) - 5 +1);
  if Not DirectoryExists(path) then begin
    Application.MessageBox(PChar('Каталог '+path+' не найден! Выходим...'),
                             'Ошибка', MB_ICONERROR or MB_OK);
    Exit;
  end;
  if Application.MessageBox(Pchar('Вы хотите очистить каталог '+path+' ? '),
         'Подтверждение', MB_ICONQUESTION or MB_OKCANCEL) = IDOK then begin
      MyRemoveDir(path);
      Application.MessageBox('Удаление содержимого произведено!',
                      'Информация', MB_ICONINFORMATION or MB_OK);
  end;
end;

p.s. обратите внимание, что для подключения функции DirectoryExists потребовалось подключить модуль FileCtrl

а можно ли сделать, запуск файла указанного полным путем в мемо... К примеру написать команду "ехе" и полный путь... Спасибо

[Stilet]

Можно. Winexec,CreateProcess,ShellExecute - все они любят запускать исполнимые файлы, но только ShellExecute может "запускать файл" в принципе. Поищи примеры по этим словам - у нас их было море

[hacknet]

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

Можно. Winexec,CreateProcess,ShellExecute - все они любят запускать исполнимые файлы, но только ShellExecute может "запускать файл" в принципе. Поищи примеры по этим словам - у нас их было море

это понятно меня интересует именно команда... Ну чтоб прописать „ехе с:\1.тхт” и если в мемо есть „ехе” то запустился файл...

[Аватар]

А что значит запустить файл с:\1.тхт? ShellExecute спокойно запустит редактор текстовых файлов (блокнот например) если вы этот путь параметром передадите. Или что-то другое имеется ввиду?

FileName:='с:\1.тхт';
ShellExecute(Application.Handle,'open',PChar(FileName),'',PChar(ExtractFilePath(FileName)),0);

[hacknet]

может вы не правильно читаете мой вопрос) я имею ввиду если в МЕМО написано ”ехе и путь к любому файлу” то этот файл запуститься. ключевое слово ”ехе” если его нет то ничего не делать... Практически тоже самое что и с удалением... Посмотрите предыдущие посты с удалением!