[решено] Проверка есть ли файл VBScript

[ymo_4@vk]

Добрый день.
Нужна проверка есть ли файл к которому указан путь.
Вот пример кода:
[команда на проверку файла]
[если файл существует то выполнить эти команды:]
set write = fso.OpenTextFile(c & ".txt", 2, false)
write.writeline "Файл найден!"
[если файл не найден то выполнить эти команды:]
WScript.Quit 1

[Iska]

Option Explicit

Dim strSourceFile
Dim objFSO



strSourceFile = "C:\Мои проекты\0135\Sample.txt"

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(strSourceFile) Then
'[если файл существует то выполнить эти команды:]
Else
'[если файл не найден то выполнить эти команды:]
WScript.Echo "Can't find source file [" & strSourceFile & "]."
WScript.Quit 1
End If

Set objFSO = Nothing

WScript.Quit 0

[ymo_4@vk]

Option Explicit
Dim strSourceFile
Dim objFSO
strSourceFile = "C:\Мои проекты\0135\Sample.txt"
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strSourceFile) Then
'[если файл существует то выполнить эти команды:]
Else
'[если файл не найден то выполнить эти команды:]
WScript.Echo "Can't find source file [" & strSourceFile & "]."
WScript.Quit 1
End If
Set objFSO = Nothing
WScript.Quit 0 »
Спасибо =)