|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
03.09.2010, 11:09 | #1 |
Старожил
Регистрация: 05.06.2008
Сообщений: 4,206
|
Удаление пустых папок в подпапке
Как удалить пустые папки (именно папки) в указанной папку, если путь до корнейвой папки я сам укажу? Нужно, чтобы удалились только пустые подпапки в указанной папке. Пните в ту сторону, где можно почитать конкретную литературу по этому вопросу
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
|
03.09.2010, 11:11 | #2 |
Погулять вышел
Участник клуба
Регистрация: 17.05.2010
Сообщений: 1,573
|
ну, насколько я помню, RemoveDir удаляет только пустую папку
Никогда не знаешь, где тебе повезет... (Фрай)
|
03.09.2010, 11:22 | #3 |
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
FindFirst с аттрибутом faDirectory. Потом проводим поиск рекурсивно в найденной папке и если пуста - киляем её.
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ |
03.09.2010, 11:26 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
а пройтись рекурсией по папкам и проверить из размер?
I'm learning to live...
|
03.09.2010, 13:11 | #5 |
Старожил
Регистрация: 05.06.2008
Сообщений: 4,206
|
Вот, пытаюсь сделать поиск. Но, не работает. Выдает ошибку, которая записана в ShowMessage и зависает, когда я указываю через SelectDirectory папку в которой надо искать пустые подпапки. Нужно, чтобы имена всех пустых папок вывелись в ListBox, а затем удалились.
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
|
03.09.2010, 13:19 | #6 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Вот. когда-то для себя делал.
Консольное приложение. В нужном расскомментарить. Код:
|
03.09.2010, 13:34 | #7 |
Старожил
Регистрация: 05.06.2008
Сообщений: 4,206
|
Правильно ли я понял, что данный код переводится на Delphi так:
Код:
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
|
03.09.2010, 13:40 | #8 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
artemavd, он и был на Делфи
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
03.09.2010, 13:42 | #9 | |
Старожил
Регистрация: 05.06.2008
Сообщений: 4,206
|
Переработал я видать уже . Не обращайте внимания. С 8 утра на работе до сих пор щас.
ругается на эту строчку Цитата:
[Error] Unit1.pas(58): Undeclared identifier: 'strAnsiToOem'
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
Последний раз редактировалось artemavd; 03.09.2010 в 13:49. |
|
03.09.2010, 13:51 | #10 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
А как вам, господа, такой приемчик?:
Код:
I'm learning to live...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Удаление пустых строк в таблице | Semen90 | Microsoft Office Word | 24 | 14.07.2022 12:28 |
Копирование и удаление пустых строк в отчете | Герман13 | Microsoft Office Excel | 4 | 03.03.2010 10:28 |
Заголовок + данные + удаление пустых строк | sane4ek_d | Microsoft Office Excel | 3 | 22.01.2010 21:37 |
Поиск значений и удаление пустых строк | OgE®_M@G | Microsoft Office Excel | 12 | 16.12.2009 20:37 |
Удаление пустых и повторяющихся строк | Marsel737 | Общие вопросы Delphi | 5 | 03.12.2009 00:58 |