[решено] Проверка есть ли файл VBScript - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] Проверка есть ли файл VBScript (http://forum.oszone.net/showthread.php?t=331688)

ymo_4@vk

05-12-2017 23:16 2782605

Проверка есть ли файл VBScript

Добрый день.
Нужна проверка есть ли файл к которому указан путь.
Вот пример кода:

Код:

[команда на проверку файла]

[если файл существует то выполнить эти команды:]

set write = fso.OpenTextFile(c & ".txt", 2, false)

write.writeline "Файл найден!"

[если файл не найден то выполнить эти команды:]

WScript.Quit 1

Iska	06-12-2017 00:54 2782627

Код:

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

06-12-2017 15:50 2782771

Цитата:

Цитата 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 »

Спасибо =)

Время: 22:56.