С помощью VBScript вместо того, чтобы проверить, существует ли файл, просто попробуйте открыть его и использовать ловушку для ошибок. Я не так хорошо знаком с партией, но подозреваю, что вы можете использовать похожую технику.
Вместо:
If objFSO.FileExists(someFileVariable) Then _
Set objTESTfile = objFSO.OpenTextFile(someFileVariable, ForReading, True, TristateFalse)
Вы бы имели:
On Error Resume Next
Set objTESTfile = objFSO.OpenTextFile(someFileVariable, ForReading, True, TristateFalse)
If Err.Number= 0 Then
' opened ok, do stuff
Else
' failed, do something else
End If