Проверка существования локального файла

[SOFTOBZOR.ru]

Необходимо проверить есть ли определенный файл в определенной директории средствами Lotus
Есть ли для этого какая ни будь функция?

 

[morpheus]

Обратиться к файлу и обработать ошибку( если файла нету )

 

[oshmianski]

Для: SOFTOBZOR.ru
угу, примерно вот так

Function isFileExist(FileName As String) As Boolean
%REM
/****************************************************/
функция проверяет существование файла на диске
/****************************************************/
%END REM		
On Error Goto errorhandler
Dim fileNum As Integer
isFileExist = False
fileNum% = Freefile()
Open FileName For Input As fileNum%
Close fileNum%
isFileExist = True	
Ex:
Exit Function

errorhandler:
Print Error, Erl
Resume Ex
End Function

 

[Axel]

Зачем так все усложнять???

Уже обсуждался вопрос на форуме.

Проще всего функцией Dir

To determine whether a particular file exists, use an exact file name for the file_spec argument to Dir or Dir$. The return value is either the file name or, if the file does not exist, the empty string ("").

 

[Kee_Keekkenen]

путь(folder) должен заканчиваться символом \

Function isFindFile(folder As String, file As String) As Boolean

Dim fileName As String

fileName = Dir (folder, 0)

Do While fileName <> ""
If fileName = file Then
isFindFile = True
Exit Function
End If

fileName = Dir()
Loop

End Function

 

[SOFTOBZOR.ru]

Вопрос отпал, решил @сабаками
Правда в notes.ini пришлось переменную заталкать.
Ну это не проблемма, просто есть определенный "накат приблуда" которую очень хотелось прикрутить к лотусу, а эту придлуду вызывать из лотуса. Ну так вот, если приблуда есть (установлена) то выводится кнопка для запуска, если не не выводится.
При инсталяции приблуды, прописываю в ini путь до приблуды.
Так в общем и решилось, сделал инсталяшку.
Всем спасибо!