Удалить все пустые папки в текущей папке

@DanSu · Регистрация: 04.02.2014

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

@maksim32 · 07.05.2014, 02:01

Почитайте документацию: http://www.script-coding.com/W... bject.html

@iCCupPlatoon · 17.05.2014, 17:37

Visual Basic

strFldr = Wscript.arguments.Item(0)
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
DelBlank strFldr
 
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
   End If
End Sub

Сохранить в DelBlank.VBS
Вызывать через командную строку:

Bash

1	CScript DelBlank.VBS "C:\Temp"

Вместо "C:\Temp" можно указать любую папку

@CHESTER-ART · 23.04.2020, 11:37

Не по теме:

полезно. спс

@DanSu 6 / 6 / 0 Регистрация: 04.02.2014 Сообщений: 23
		1
	Удалить все пустые папки в текущей папке 07.05.2014, 00:12. Показов 2278. Ответов 3 Метки нет (Все метки) Удалить все пустые папки в текущей папке 0

@maksim32 74 / 50 / 29 Регистрация: 30.08.2012 Сообщений: 143
	07.05.2014, 02:01	2
	Почитайте документацию: http://www.script-coding.com/W... bject.html 1

@CHESTER-ART
	23.04.2020, 11:37 Удалить все пустые папки в текущей папке #4
	Не по теме: полезно. спс 0

Удалить все пустые папки в текущей папке

Решение