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

  • Автор темы SOFTOBZOR.ru
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

SOFTOBZOR.ru

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

morpheus

скриптописец
07.08.2006
3 915
1
#2
Обратиться к файлу и обработать ошибку( если файла нету )
 
O

oshmianski

#3
Для: 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
 
A

Axel

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

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

Проще всего функцией 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

Well-known member
05.09.2006
639
4
#5
путь(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
 
S

SOFTOBZOR.ru

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