[Iska]

Если в папках не будет в результате никаких файлов — они всё равно должны создаваться, даже пустые? Так?

[Aleksander.Ruban@fb]

Нет в папках будут в любом случае искомые файлы. Возможно отсутствие nfo. Но мысль верная, если файлов нет, то создавать папку стоит, главное чтобы был лог этой операции и я знал, что она пустая.

[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"

[megaloman]

Как это сваять в батнике?

Читаем описание команды xcopy /? и решаем задачу в две строки

Код:

@Echo Off
xcopy /E "D:\Копируемая Папка\*.nfo" "E:\Копируемая Папка\" >"E:\Копируемая Папка.log"
xcopy /E "D:\Копируемая Папка\*.cso" "E:\Копируемая Папка\" >>"E:\Копируемая Папка.log"

Разве что в лог-файле не видно что создались пустые папки (но в постановке этого и не было). По видимому, можно выдать список пустых папок, а зачем они нужны? Я бы их вообще не создавал. (/S в команде Xcopy вместо /E)