Single Post - Удаление в 50 каталогах лишних папок, с сохранением файлов

Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB

Rules

Search

FAQ

Memberlist

Usergroups

Profile

Single Post

Topic: Удаление в 50 каталогах лишних папок, с сохранением файлов

Author

Message

Flasher

Posted: Sat Jan 14, 2012 20:16 Post subject:

Darkenlightener
1. Установить SCP.
2. В директорию плагина положить Script.vbs с содержимым:

Code:

With CreateObject("Scripting.FileSystemObject")
If .GetFolder(FileName).Files.Count = 0 And .GetFolder(FileName).Subfolders.Count = 1 Then
For Each F in .GetFolder(FileName).Subfolders
If F.Size > 0 Then Content = 1
Next
End If
End With

3. В script.ini прописать:

Code:

[Script]
Section=Dir

[Dir]
Script=Script.vbs
LongName=1
ParseDirs=1

4. В диалоге поиска на вкладке "Плагины" ввести последовательно:
script | Result | = | 1
Запустить поиск.
5. После вывода результатов на панель и выделения нужных папок воспользоваться этим скриптом.
Хотя нет, скрипт по ссылке рекомендуется использовать, если нужно оставлять текущее имя папки, а не имя родительской. А как лучше?