[O L E G]

Все СПС дальше то же разобрался сам.

Код:

Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Dim fso, f, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("C:\2.txt", ForReading, 1)
   Set s = fso.OpenTextFile("C:\1.txt", ForReading, 1)
Do
			WScript.Sleep 1
		Loop