Скрипт на JScript для Windows — создание списка файлов

Создает список с именами файлов в текущей папке и открывает его в notepad.
Для использования нужно сохранить правой кнопкой по ссылке в нужную папку.
dirlist.wsf

<job><script language="JScript">

var fso = new ActiveXObject("Scripting.FileSystemObject");
var path = WScript.ScriptFullName.substring(0, WScript.ScriptFullName.length - WScript.ScriptName.length);

var folder = fso.GetFolder(path);
var fc = new Enumerator(folder.files);
var s="";
for (; !fc.atEnd(); fc.moveNext()) {
	s += fc.item().Name+"\r\n";
}

var fn = path+"_files.txt";
var o = fso.CreateTextFile(fn, true);
o.Write(s);
o.Close();

var WshShell = new ActiveXObject("WScript.Shell");
WshShell.Run("notepad "+fn, 1, true);
//WScript.echo(s);

</script>
</job>