[lchou]

Вот такой вариант на VBS:

Код:

Dim fso, vLogStream

Const FILE_LOG = "E:\copy.log"

Const FOLDER_SRC = "C:\Folder1"  'откуда (должна сущест-ть)
Const FOLDER_DEST = "D:\Folder2"  'куда (должна сущест-ть)

Const MY_EXTENSION = "nfo,cso"  'типы файлов

Function CopyFoldersAndFiles(strFolderSrc, strFolderDest)
	Dim vFile, vFolder, vSubFolder
	Set vFolder = fso.GetFolder(strFolderSrc)
	strFolderSrc = strFolderSrc & "\"
	strFolderDest = strFolderDest & "\"
	For Each vFile In vFolder.Files
		If InStr(1, MY_EXTENSION, fso.GetExtensionName(vFile.Path), vbTextCompare) Then
			vLogStream.WriteLine "copying file " & vFile.Path & " to " & strFolderDest
			vFile.Copy strFolderDest
		End If
	Next
	For Each vSubFolder In vFolder.SubFolders
		vLogStream.WriteLine "create folder " & strFolderDest & vSubFolder.Name
		fso.CreateFolder strFolderDest & vSubFolder.Name
		CopyFoldersAndFiles strFolderSrc & vSubFolder.Name, strFolderDest & vSubFolder.Name
	Next
End Function

Set fso = WScript.CreateObject("Scripting.FileSystemObject")

Set vLogStream = fso.OpenTextFile(FILE_LOG, 2, True)

CopyFoldersAndFiles FOLDER_SRC, FOLDER_DEST

vLogStream.Close

MsgBox "OK"