[ruslaw]

нашлось решение этой интересной, на мой взгляд, задачи:
https://www.cyberforum.ru/vbscript-w...l#post14951684

А вот это мое:

Код:

var fso = new ActiveXObject("Scripting.FileSystemObject");
var list = fso.OpenTextFile("D:\\test.txt", 1, true);            
var str = list.ReadAll();
//создается массив строк файла-списка
var elm = str.replace(/\r/g, '').split('\n');       
list.Close();
var myEnum = new Enumerator(elm);
for (i=0; !myEnum.atEnd(); myEnum.moveNext()){
fScan(myEnum.item())
function fScan(main_folder_path) {
var fn = myEnum.item()+"\\scan_tree.txt";
var f = fso.CreateTextFile(fn,true,true);
var main_folder = fso.GetFolder(main_folder_path);
DirWithSubFolders(main_folder);
// ================================================================
function DirWithSubFolders(_folder){
if(_folder.Attributes & 2) {return} //(пропускаем скрытые файлы)
var more_folders = new Enumerator(_folder.SubFolders);
for (;!more_folders.atEnd(); more_folders.moveNext()){
OneFolder = more_folders.item();
f.writeline(OneFolder.Path);
DirWithSubFolders (OneFolder);
}}}}
WScript.Echo("Finish");