
Скрипт
Set oFSO = CreateObject("Scripting.FileSystemObject")
'Set WScript = CreateObject("WScript.Shell")
sCurFolder = oFSO.GetParentFolderName(WScript.ScriptFullName)
For each oSubFolder in oFSO.GetFolder(sCurFolder).SubFolders
Result = Result & oSubFolder.Files.Count
Next