|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Помогите исправить код удаления директории
Имеется код который открывает "Обзор папок" в котором указываешь папку и он всё в ней удаляет.
Но мне надо слегка переделать. Нужно при выборе диска, чтоб удалял определённую папку (скажем "123") и она скрыта. Эта папка может быть на любом диске. Вот первоначальный код: Код:
uses FileCtrl; procedure RemoveAll(path: string); var sr: TSearchRec; begin if FindFirst(path + '\*.*', faAnyFile, sr) = 0 then \\Поиск файлов в директории begin repeat if sr.Attr and faDirectory = 0 then \\атрибут вроде как :) begin DeleteFile(path + '\' + sr.name); \\удаляем end else begin if pos('.', sr.name) <= 0 then RemoveAll(path + '\' + sr.name); \\удаляем end; until FindNext(sr) <> 0; \\след. поиск end; FindClose(sr); \\очищаем TSearchRec RemoveDirectory(PChar(path)); \\удаляем директорию end; procedure TForm1.Button1Click(Sender: TObject); var dir: string; begin if SelectDirectory('Удаление каталога', '', dir) \\Открывает "Обзор папок" then RemoveAll(dir); end; end. Код не мой, комменты к коду мои |