Любой язык - [решено] Удалить (перенести) все папки, кроме начинающихся с цифры (цифр)

Iska · Отправлено: **16:03, 04-05-2018** | #2

Цитата Wrongbee:

Папку захламляют чем попало. »

Кто захламляет? Как именно захламляет? Какие оргмеры принимаются для противодействия этому?

Цитата Wrongbee:

удаляет все папки вне файлов. »

Это, простите, как? Файл не может являться контейнером.

Цитата Wrongbee:

Работает скрипт (VBS), »

Покажите его код. Опишите условия его применения, ибо одновременная работа двух скриптов одинаковой направленности над одним каталогом может приводить к непредсказуемым последствиям.

Цитата Wrongbee:

и при появлении в ней папки, начинающейся НЕ с цифры, переносить эту папку в D:/MUSOR. Более продвинутая хотелка, если можно. При появлении папки, начинающейся не с пяти цифр, »

Определитесь — то или то нужно. «Продвинутости» во втором случае по сравнению с первым нет ни малейшей.

Wrongbee · Отправлено: **16:15, 04-05-2018** | #3

Исправляюсь. Есть папка d:\ZAKAZ. На каждый новый заказ заводится папка с именем типа "25647_Заказчик". Хотелось бы оставлять все папки, имя которых начинается с пяти цифр (дальше неважно). И переносить все остальные папки в D:\Musor

Пример. Папки должны остаться
"18345"
"27483_браво"
"98273 Альфа".

Папки (имена) должны быть перемещены в мусор
"Браво_23424"
"2734"
"Моя скачка" и тд

На данный момент в планировщике работает батник, который удаляет все файлы (не папки), который оказываются в папке d:\ZAKAZ. То есть при появлении любого файла (не папки) в папке d:\ZAKAZ , этот файл удаляется
-------------
@ECHO OFF
del /Q "d:\zakaz\*.*
--------------

Iska · Отправлено: **16:39, 04-05-2018** | #4

Цитата Wrongbee:

На данный момент в планировщике работает батник, который удаляет все файлы (не папки), который оказываются в папке d:\ZAKAZ. То есть при появлении любого файла (не папки) в папке d:\ZAKAZ , этот файл удаляется »

Как именно он работает в Планировщике? Ибо в коде самого пакетного файла отсутствуют какие-либо средства для слежения за «появлением любого файла». И, как я понимаю, в Планировщике этого тоже нет. А что там есть, как именно организован запуск пакетного файла в задании?

Цитата Wrongbee:

Есть папка d:\ZAKAZ. На каждый новый заказ заводится папка с именем типа "25647_Заказчик". Хотелось бы оставлять все папки, имя которых начинается с пяти цифр (дальше неважно). »

Ясно.

Цитата Wrongbee:

И переносить все остальные папки в D:\Musor »

Зачем переносить? Почему не просто удалять? В принципе, можно и переносить, но зачем?

Опиум · Отправлено: **16:41, 04-05-2018** | #5

Код:

dir /ad /b | findstr /v /r "^[0-9][0-9][0-9][0-9][0-9]."

вернет имена директорий, которые не подходят под ваше правило. Их и удаляйте.

Wrongbee · Отправлено: **16:50, 04-05-2018** | #6

Спасибо!!! Начну пробовать

Ставил удалялку файлов давно, но cmdow @ /HID работала кривовато (помигивал экран при запущенном графическом софте), и именно в планировщик был поставлен скрипт, который и запускает батник 1.cmd абсолютно невидимо. Не самое изящное решение, наверно.
---------

Dim oShell

Set oShell = WScript.CreateObject ("WSCript.shell")

oShell.run "D:\Cron\1.cmd", 0

Set oShell = Nothing
--------------------