ShaddyR
а может попробовать whs у него возможностей поболее будет и выглядеть будет это примерно так:
Код:
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("c:\\Documents and Settings\\")
Set fc = f.SubFolders
For Each f1 in fc
s = s & f1.name
s = s & CHR(10)
Next
s = s & "Всего папок: " & fc.Count WScript.Echo s
Вот простой скриптик переберающий все папки в документс энд сетингз. Сохрани его с расширением vbs и перебирай все что угодно
