WSH Работа с файловой системой :o

[Niaoppla]

Помогите, пожалуйста :o

Необходимо объединить три файла с заданными именами в один и скопировать этот файл в заданный каталог;
Далее выдать на экран перечень всех подкаталогов заданного каталога.

Заранее благодарю! ;)

[Dragokas]

copy /?

указываете нужные файлы через + и в конце через пробел результирующий.

dir /?
dir каталог ключ
Ключ /a а за ним нужный фильтр найдете в справке

[OSArev]

Option Explicit

Dim oFSO, oFile, oFile1, oFile2, oFile3, Var, Var1, Var2, sFile, sname, sfolder, SubFolder, msg

Set oFSO = CreateObject ("Scripting.FileSystemObject")
Set oFile = oFSO.OpenTextFile("1-й файл.txt",1)
Set oFile1 = oFSO.OpenTextFile("2-й файл.txt",1)
Set oFile2 = oFSO.OpenTextFile("3-й файл.txt",1)
Set oFile3 = oFSO.OpenTextFile("Результат.txt",2,True)

Var = oFile.ReadAll
oFile.Close
Var1 = oFile1.ReadAll
oFile1.Close
Var2 = oFile2.ReadAll
oFile2.Close
oFile3.WriteLine Var
oFile3.WriteLine
oFile3.WriteLine Var1
oFile3.WriteLine
oFile3.WriteLine Var2
oFile3.Close

sFile = "Путь\к\Результат.txt"
sname = oFSO.GetFileName(sFile)
sfolder = "Путь\к\заданному\каталогу"
ofso.CopyFile sFile, sfolder & "\" & sname

ShowSubFolders oFSO.GetFolder(sfolder)

Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
msg = msg & Subfolder.Name & vbcrlf
Next
wscript.echo msg
End Sub

WScript.Quit