[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