Ragazzi ho la necessità di eliminare tutte le sottocartelle vuote a partire da una data cartella.

Purtroppo però la cosa non mi riesce.

Mi date una mano?

sub DirectoryDel(path)
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)

Response.Write("<ul>")
Response.Write("File: "&folder.Files.Count&"
")
for each item in folder.Files
Response.Write("[*]" & item.Name & "" & vbCrLf)
next
Response.Write("[/list]")

for each item in folder.SubFolders
Response.Write("" & item.Name & " SottoCartelle: "&item.SubFolders.Count&" File: "&item.Files.Count&"
")
if item.SubFolders.Count = 0 AND item.Files.Count = 0 then
'RESPONSE.Write("ELIMINA ")& item.path&"
"
Fs.DeleteFolder (item.path), True
ELSE
RESPONSE.Write("NON ELIMINARE")&"
"
END IF

DirectoryTree(item.Path)
next

end sub

Call DirectoryDel(server.mappath("\public\cat\a"))