[Iska]

Непрерывно считывать не надо. Достаточно просто открыть для операций записи. Например:

Код:

With WScript.CreateObject("Scripting.FileSystemObject")
	With .OpenTextFile("E:\Песочница\0139\0001.txt", 8)
		Do
			WScript.Sleep 100
		Loop
		
		.Close
	End With
End With

Папку, содержащую открытый файл, Вы не сможете переместить в Корзину.