[Sham]

живе javascript, как говорится.

Код:

@set @bat=1 /*
@echo off
cscript //nologo //e:jscript %0 %*
@exit /b %errorlevel%
*/
(function() {
	var fso = WSH.CreateObject('Scripting.FileSystemObject');
	var script_folder = fso.GetParentFolderName(WSH.ScriptFullName);
	var folder = fso.GetFolder(script_folder + '\\dir');
	var log = folder.Path + '\\filelist.txt';
	var exclude = /^(?:file1\.ext|file2\.ext)$/i;
	var n, a = [];

	WSH.Echo('got folder', folder);

	iter(folder.Files, function(i) {
		if (exclude.test(i.Name)) return;
		n = i.Name.replace(/\.[^.]*$/, '');
		//WSH.Echo(n);
		a.push(n);
	});

	var fw = fso.OpenTextFile(log, 2, true, -2);
	if (!fw) {
		WSH.Echo('failed to create', log);
		WSH.Quit(1);
	}
	fw.Write(a.join('\n'));
	fw.Close();
	WSH.Echo('file list written to', log);

	function iter(obj, fn) {
		for (var enu = new Enumerator(obj);
			!enu.atEnd();
			enu.moveNext()
		) fn(enu.item());
	}
})();

можно сохранить как .bat.