[amel27]

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

где-то так:

Код:

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

[forsem]

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

[19w85]

amel27
Спасибо!

[Francyz]

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