[Iska]

Код:

Option Explicit

Dim strSourceFile

Dim objFSO
Dim strLine


strSourceFile = "E:\Песочница\0348\0001.txt"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strSourceFile) Then
		With .OpenTextFile(strSourceFile)
			Do Until .AtEndOfStream
				strLine = .ReadLine()
				
				WScript.Echo "[" & strLine & "]"
			Loop
			
			.Close
		End With
	Else
		WScript.Echo "Can't find [" & strSourceFile & "]."
		WScript.Quit 1
	End If
End With

WScript.Quit 0

[Elven]

спасибо. то что нужно.