Копирование строки из одного файла, и запись его в другой (при условии)

[Reanosi]

Добрый вечер. Опять нуждаюсь в помощи. Необходимо копировать первую строку из одного текстового файла (переодически изменяющегося), в другой с новой строки, при условии, что такой строки еще пока нет в файле.

[megaloman]

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

[Reanosi]

Супер. Спасибо.