Виноват, не посмотрел тему сообщения, но всё же батник существенно короче.
UpDaTe, Похоже на Ваше решение, но чуть короче за счет применения метода DeleteFile и групповых символов в имени файла
Код:
Public FSO
AllDir = "P:\TMP" ' --------- Полное имя рабочего каталога (без слэжа \ на конце)
Set FSO = CreateObject("Scripting.FileSystemObject")
AllFolders AllDir
' ---------------------------------------------------------------------------
Sub AllFolders(WDir)
FSO.DeleteFile WDir + "\*.*", True
Set SubF = FSO.GetFolder(WDir).SubFolders
For Each Folder In SubF
AllFolders WDir + "\" + Folder.Name
Next
End Sub
