Скрипт удаления пустых папок

@irabel · Регистрация: 08.10.2020

Студворк — интернет-сервис помощи студентам

Добрый день!
Есть небольшой скрипт, который висит в панели Total Commander, при нажатии кнопки очищает в текущей папке все пустые папки:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
strFldr = Wscript.arguments.Item(0)
Set objFSO = CreateObject("Scripting.FileSystemObject")
cnt=0
DelBlank strFldr
msgbox "Удалено " & cnt & " пустых папок"
Sub DelBlank(sFldr)
   Dim oD, cD, oI
   Set oD = objFSO.GetFolder(sFldr)
   Set cD = oD.SubFolders
   For Each oI In cD
     DelBlank oI.Path
   Next
   If oD.Size = 0 Then
      oD.Attributes = 0
      oD.Delete
      cnt=cnt+1
   End If
End Sub

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

FlasherX · 28.04.2023, 11:55

irabel, можете мой взять:

DelEmptySubFolders.vbs

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
'—————————————————— VBS ——————————————————
' Назначение: удаление пустых подкаталогов
'  Параметры: "<путь к каталогу>" [/s]
'     Пример: "%P" /s
' /s — обработка всей структуры каталога
 
'  Авторство: FlasherX (06.06.2017)
'—————————————————————————————————————————
Option Explicit: Dim Rec, Dir, FSO, Col, D
With WSH.Arguments
  Rec = .Named.Exists("s")
  Dir = "\\?\" & WSH.Arguments(0)
End With
Const Title = " Удаление пустых подпапок     "
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Col = CreateObject("System.Collections.ArrayList")
If Not FSO.FolderExists(Dir) Then _
MsgBox "Укажите путь к существующему каталогу!", 262192, Title: WSH.Quit
On Error Resume Next
Recursion FSO.GetFolder(Dir)
Col.Sort: Col.Reverse
For Each D in Col
   Set D = FSO.GetFolder(D)
   If D.SubFolders.Count + D.Files.Count = 0 Then D.Delete 1
Next
Set FSO = Nothing: Set Col = Nothing
CreateObject("WScript.Shell").Popup "  Выполнено!", 1.7, Title, 4160
 
Sub Recursion(oDir)
  For Each D in oDir.SubFolders
    If D.SubFolders.Count Then
      Col.Add D.Path
      If Rec Then Recursion D
    ElseIf D.Files.Count = 0 Then D.Delete 1
    End If
  Next
End Sub

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025