FSO: метод FileExists

Синтаксис:

FileExists(<Filespec>)

Назначение: возвращает True, если указанный файл сущесвтвует, и False в противном случае.

Параметры:

• <Filespec> – строка, путь.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

File = "C:\Program Files\1Cv77\BIN\1cv7s.exe"

MsgBox "Файл " & File & " существует = " & FSO.FileExists(File)

File = "С:\1.txt"

MsgBox "Файл " & File & " существует = " & FSO.FileExists(File)

' ==============================================================================================

' ##### проверка существования файла

'

' ----------------------------------------------------------------------------------------------

Function FnFileExist(ByVal strFile As String) As Boolean

Set FSO = CreateObject("Scripting.FileSystemObject")

FnFileExist = FSO.FileExists(strFile)

End Function

' ==============================================================================================

Метки: FileExists , FSO , FSO.FileExists , Set FSO = CreateObject("Scripting.FileSystemObject") , SetFSO