[megaloman]

vbs. C cmd для работы с текстами не советую связываться

Код:

File1 = "Z:\Box_In\Один текстовый файл.txt"
File2 = "Z:\Box_Out\Другой текстовай файл.txt"

Set FSO = CreateObject("Scripting.FileSystemObject")

On Error Resume Next
Set inFile = FSO.OpenTextFile(File1, 1)
If Err.Number <> 0 Then
    MsgBox File1 + vbCrLf + Err.Description
    WScript.Quit 1
End If
On Error GoTo 0

String1 = inFile.ReadLine
inFile.Close

On Error Resume Next
Set inFile = FSO.OpenTextFile(File2, 1, True)
If Err.Number <> 0 Then
    MsgBox File2 + vbCrLf + Err.Description
    WScript.Quit 1
End If
String2 = inFile.ReadAll
If Err.Number <> 0 Then
    String2 = ""
End If
On Error GoTo 0
inFile.Close

N = InStr(1, String2, String1)
If N <= 0 Then
    On Error Resume Next
    Set inFile = FSO.OpenTextFile(File2, 8, True)
    If Err.Number <> 0 Then
        MsgBox File2 + vbCrLf + Err.Description
        WScript.Quit 1
    End If
    On Error GoTo 0
    If Right(String1, 2) <> vbCrLf And String2 <> "" Then String1 = vbCrLf + String1
    inFile.Write String1
End If
inFile.Close