Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Операционные системы > Операционные системы общие вопросы
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.01.2012, 11:47   #1
JUDAS
фонатик DELPHI
Форумчанин
 
Аватар для JUDAS
 
Регистрация: 14.01.2008
Сообщений: 714
По умолчанию Задача на BAT-файле

Здравствуйте уважаемые знатоки !
у меня возникла следующая проблема, необходимо написать ВАТ файл для чистки папок от мусора.
Ситуация следующая:
Имееются карты созданные на одной из известных ГИС. Структура карты представляет собой ПАПКУ, в которой есть определённый набор файлов разного расширения и вложенная папка Log
У меня имеется очень большой набор карт, паки которых вложены друг в другадо неопределённого уровня.
Проблема:
Прошу помощи в написании ВАТ файла, который бы удалял с каждой папки в дереве вложенную папку LOG вместе с содержимым. Ниже пример описанной выше папки с картами.
Заранее спасибо всем кто откликнется.
Изображения
Тип файла: jpg 7676767676767676767676767676.jpg (29.5 Кб, 84 просмотров)
95% сбоев и ошибок приложений, находится в полу метрах от монитора
JUDAS вне форума Ответить с цитированием
Старый 08.01.2012, 11:12   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

коллега, а использование именно BAT файла - это обязательное условие?
я бы легко набросал Вам консольную программку на Delphi, которая делает нужное удаление..
Serge_Bliznykov вне форума Ответить с цитированием
Старый 08.01.2012, 20:08   #3
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Код:
rem @echo off 
setlocal 
set DelPath=log
set InitPath=%~dps0 
call :TestPath %InitPath:~0,-1%
goto end 
:TestPath 
for /f "delims=" %%i in ('dir %1 /a:d /b') do IF /I %%i==%DelPath% ( rmdir /s /q %1\%%i && echo deleted %1\%%i ) ELSE ( call :TestPath %1\%%i ) 
exit /b 
:end
REM pause
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 08.01.2012, 23:51   #4
JUDAS
фонатик DELPHI
Форумчанин
 
Аватар для JUDAS
 
Регистрация: 14.01.2008
Сообщений: 714
По умолчанию

Большое вам челевеческое спасибо, Аватар
Программы на Delphi не всегда запускаются под ДОС запущеный со стартовой дискеты
95% сбоев и ошибок приложений, находится в полу метрах от монитора
JUDAS вне форума Ответить с цитированием
Старый 09.01.2012, 00:14   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Программы на Delphi не всегда запускаются под ДОС запущеный со стартовой дискеты
точнее - всегда НЕ запускаются. Ибо Win32 не идёт под MS DOS.
но в таких случаях спасёт TurboPascal!

впрочем, благодаря Аватар проблема уже решена.
чего уж тут обсуждать ехешники под разные ОС...
Serge_Bliznykov вне форума Ответить с цитированием
Старый 13.01.2012, 21:08   #6
Вадим Мошев

Старожил
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Сообщений: 8,568
По умолчанию

Справочник по параметрам командной строки. Может пригодится
Вложения
Тип файла: rar Справочник по параметрам командной строки.rar (853.1 Кб, 7 просмотров)
Вадим Мошев вне форума Ответить с цитированием
Старый 13.01.2012, 21:46   #7
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 15,547
По умолчанию

Решение Аватар тоже под DOS работать не будет, только под Windows 2000 и выше.
Arigato вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Bat zumm Общие вопросы Delphi 5 31.07.2010 12:10
Поиск данных в текстовом файле (в самом файле! а не в Memo и не загружая всю инфу из файла в одну строку glagoff Помощь студентам 1 05.05.2010 13:00
Ошибка в .bat файле DreamCrusher Помощь студентам 0 21.12.2009 15:25