Создает список с именами файлов в текущей папке и открывает его в 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>