[Ivan Bardeen]

Вот скрипт, с подобным функционалом на VBS - надеюсь поможет разобраться

Код:

Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubFolders FSO.GetFolder("C:\temp")

Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        Wscript.Echo Subfolder.Name
        ShowSubFolders Subfolder
    Next
End Sub

[petrovre]

Спасибо, конечно, но этот скрипт я несколько раз находил, пытаясь нагуглить решение своей проблемы. Принцип у меня тот же самый, но на JS этот способ почему-то не работает.

[Ivan Bardeen]

petrovre,
VBS для этих целей гораздо удобней, как вы видите - для vbscript, к примеру, не нужно объявлять массив. Больше типов данных, больше готовых примеров. Для автоматизации действий в windows подходит больше именно vbscript, имхо. Начал я c JScript, полгода поработал, потом переучился на VBS

[megaloman]

Вот рекурсия на VBS

Код:

AllDir = "P:\DDDDDD"                     ' ---------  Полное имя рабочего каталога (без слэжа \ на конце)

OutStr = AllDir + vbCrLf
OutStr = OutStr + AllFolders(AllDir)

MsgBox OutStr

' ---------------------------------------------------------------------------
Function AllFolders(WDir)
'   MsgBox WDir
    Rezult = ""
    Set F = CreateObject("Scripting.FileSystemObject").GetFolder(WDir)
    Set SubF = F.SubFolders

    For Each Folder In SubF
        Rezult = Rezult + WDir + "\" + Folder.Name + vbCrLf
        Rezult = Rezult + AllFolders(WDir + "\" + Folder.Name)
    Next

    AllFolders = Rezult
End Function

Вот рекурсия на JS

Код:

var AllDir = "P:\\dddddd";           //---------  Полное имя рабочего каталога (без слэжа \\ на конце)

var OutStr=AllDir+"\n";

OutStr+=AllFolders(AllDir);

WScript.Echo(OutStr);

// ---------------------------------------------------------------------------
function AllFolders(WDir)
{
//    WScript.Echo(WDir);
    var F,Rezult,Folders;

    F=WScript.CreateObject("Scripting.FileSystemObject").GetFolder(WDir);
    Rezult="";

    Folders=new Enumerator(F.SubFolders);

    for (; !Folders.atEnd(); Folders.moveNext())
    {
//       WScript.Echo(Folders.item().Name);
       Rezult+=WDir+"\\"+Folders.item().Name+"\n";
       Rezult+=AllFolders(WDir+"\\"+Folders.item().Name);
    }

    return Rezult;
}

Всё дело в видимости переменных в JS. Пока в функции не написал:
var F,Rezult,Folders;
у меня тоже не работало.

[petrovre]

А ведь действительно, всё дело было в видимости переменных. Спасибо большое, megaloman! Самое обидное, что эту тонкость с видимостью я знал, но сначала решил, что ошибся где-то в алгоритме или в Enumerator и в горячке пропустил это очевидное решение.