Вывести в текстовый файл значения размеров и расширений всех файлов в указанной папке

var fpt = 'c:\\windows',                                      // путь к папке
    fso = new ActiveXObject ('Scripting.FileSystemObject'),
    fld = fso.GetFolder (fpt),
    txt = new Array (),
    fil = new Enumerator (fld.files);
for (; !fil.atEnd (); fil.moveNext ())
   txt [txt.length] = fil.item ().Name + '\t' +
                      fil.item ().size + '\t' +
                      fil.item ().type;
var fil = fso.CreateTextFile ('c:\\myfile.txt', true);        // путь к вновь создаваемому файлу
fil.Write (txt.join ('\r\n'));
fil.Close ();

   txt [txt.length] = fil.item ().Name.split ('.') [1] + '\t' +
                      fil.item ().size;

function fnShellBrowseForFolderJ()  
{
    var objShell;
    try
    {
        objShell = new ActiveXObject("Shell.Application");
    } 
        catch(er) 
    {
        alert(er);
        return;
    }
   
   var ssfCONSTANTS = 17;
   var objFolder;
   objFolder = objShell.BrowseForFolder(0, "Select Result Profile Folder", 0, ssfCONSTANTS);
   fld = fso.GetFolder (fpt),
   if (objFolder != null)
    { 
        return (...?...);  // нужно вернуть переменную, содержащую путь
    }
}
 
var fpt = fnShellBrowseForFolderJ();   // Сюда нужно вставить путь к папке
    frm = ';',                                                 // разделитель
    fso = new ActiveXObject ('Scripting.FileSystemObject'),
    arr = new Array (),
    ind = 0,
    fil = new Enumerator (fld.files);
for (; !fil.atEnd (); fil.moveNext ())
   arr [ind++] = fil.item ().Name + frm + fil.item ().size ;
arr.sort (function (x, y) {return (x.split (frm) [1] - y.split (frm) [1])});
WScript.Echo (arr.join ('\n'));
 
var fil = fso.CreateTextFile ('C:\\myfile.txt', true);        // тут нужен путь, где находится исполняемый файл
fil.Write (arr.join ('\r\n'));
fil.Open ();

var po = new Object;
po.File_system_object = new ActiveXObject ('Scripting.FileSystemObject');
po.enumerator         = new Enumerator (po.File_system_object.Drives);
po.save_data          = '';
for (; !po.enumerator.atEnd (); po.enumerator.moveNext ())
   {
   po.temp = po.enumerator.item ();
   if (po.temp.DriveType == 2 && po.temp.IsReady) po.save_data += po.temp;
   }
 
po.Shell_application  = new ActiveXObject ('Shell.Application');
po.selected_directory = po.Shell_application.BrowseForFolder (0, 'Âûáåðèòå êàòàëîã', 529),
po.Directory_path     = (po.selected_directory) ? po.selected_directory.Self.Path : '';
 
if (
    po.Directory_path 
      &&
    (new RegExp ('^[' + po.save_data.replace (':', '') + ']\\:\\\\')).test (po.Directory_path)
   )
   {
   po.selected_directory = po.File_system_object.GetFolder (po.Directory_path);
   po.enumerator         = new Enumerator (po.selected_directory.files);
   po.save_data          = new Array ();
   po.max_number_simbols = 0;
   po.func_add_space     = function (y) {for (var s = '', k = 0; k < y + 10; k++) s += ' '; return s}
   po.func_add_zero      = function (z) {return ((z < 10) ? '0' : '') + z}
 
   for (; !po.enumerator.atEnd (); po.enumerator.moveNext ())
      po.current_file       = po.enumerator.item (),
      po.temp               = (po.current_file.Name.indexOf ('.') != -1),
      po.temp               = (po.temp) ? (po.current_file.Name.split ('.')) : ['áåç ðàñøèðåíèÿ'],
      po.temp               = po.temp [po.temp.length - 1],
      po.size_file          = Math.floor (po.current_file.size / 1042),
      po.temp              += '\t' + ((!po.size_file) ? '< 1' : po.size_file) + ' ÊÁ',
      po.max_number_simbols = (po.temp.length > po.max_number_simbols) ? po.temp.length : po.max_number_simbols,
      po.save_data [po.save_data.length] = po.temp;
 
   for (var j = 0, lj = po.save_data.length; j < lj; j++)
      po.temp = po.save_data [j].length,
 
      po.save_data [j] = po.save_data [j].split ('\t').join (po.func_add_space (po.max_number_simbols - po.temp));
   po.current_data = new Date,
   po.name_file = po.func_add_zero (po.current_data.getDate ())      + '-' +
                  po.func_add_zero (po.current_data.getMonth () + 1) + '-' +
                                    po.current_data.getFullYear ()   + '-' +
                  po.func_add_zero (po.current_data.getHours ())     + '-' +
                  po.func_add_zero (po.current_data.getMinutes ())   + '.txt',
   po.save_file = po.File_system_object.CreateTextFile (po.Directory_path  + '\\' + po.name_file, true);
 
   po.save_file.Write (po.save_data.join ('\r\n'));
   po.save_file.Close ();
 
   po.Shell_application.ShellExecute (po.name_file, '', po.Directory_path, 'open', 1);
   }
else WScript.Echo ('Êàòàëîã íå âûáðàí.\nGame over.');