[Iska]

alexhd, пробуйте:

читать дальше »

Код:

Option Explicit

Const ForWriting   = 2

Dim strFile


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

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strFile) Then
		With .OpenTextFile(strFile, ForWriting)
			.Close
		End With
	Else
		WScript.Echo "File [" & strFile & "] not found."
		WScript.Quit 1
	End If
End With

WScript.Quit 0