[решено] Удаление пустых папок VBasic - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] Удаление пустых папок VBasic (http://forum.oszone.net/showthread.php?t=149167)

Удаление пустых папок VBasic

Здравствуйте коллеги :)

У меня возникла необходимость в скрипке , который удалял бы все пустые папки на диске. То есть
Есть вариант что существует каскад папок ,но все они не содержат файлов. только вложенные пустые папки ,
Мне надо найти сначала папку не содержащую ничего , не файлов не папок , удалить её, потом если папка на уровень выше
после удаления первой папки также становится пустой , то тоже удалить её. и т.д.

уф ... вроде нормально изложил суть вопроса

Может у кого нибудь есть готовые скрипки и кто нибудь поможет :)

Заранее благодарю

Цитата:

Цитата forsem

найти сначала папку не содержащую ничего , не файлов не папок , удалить её, потом если папка на уровень выше после удаления первой папки также становится пустой , то тоже удалить её. и т.д. »

где-то так:

Код:

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

пример запуска:

Код:

CScript DelBlank.VBS C:\Temp

Спасибо. все работает

amel27
Спасибо!

Спасибо за скрипт.