Додумался и сам сделал).
Работает с любыми файлами.
Код:
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\e7.jpg", ForAppending, 8)
Do
WScript.Sleep 10
Loop
Только пока не могу разобрать, можно ли указать для чтения не один файл (c:\e7.jpg),а к примеру не сколько?
