[salikoff]

вот более полная версия скрипта, для тех, кто хочет запустить его на исполнение:

extArray =["txt","doc","docx","xls","xlsx"];
strTarget = "D:\\target";
sourceArray = ["E:"];
fso = new ActiveXObject("Scripting.FileSystemObject");

if (fso.FolderExists(strTarget)) fso.GetFolder(strTarget).Delete(true);
fso.CreateFolder(strTarget);


function processFolder(oSource, strTarget)
	{
	for (var ext in extArray)
		{
		var source = oSource.Path + "\\*." + extArray[ext];
		try {fso.CopyFile(source, strTarget)} catch(e) {}
		}
	var subFolders = new Enumerator(oSource.SubFolders);
	for (; !subFolders.atEnd(); subFolders.moveNext())
		{
		var target = strTarget + "\\" + subFolders.item().Name;
		processFolder(subFolders.item(), target)	
		}
	}	

function processFolders(sourceArray, strTarget)
	{
	for (var index in sourceArray)
		{
		folder = fso.GetFolder(sourceArray[index]);	
		processFolder(folder, strTarget)
		}	
	}	
	
processFolders(sourceArray,strTarget);

Сканируются папки указанные в массиве sourceArray на предмет наличия в них файлов с указанными расширениями. Найденные файлы перемещаются в папку target