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

Тема в разделе "Lotus - Программирование", создана пользователем SOFTOBZOR.ru, 11 окт 2006.

Статус темы:
Закрыта.
  1. SOFTOBZOR.ru

    SOFTOBZOR.ru Гость

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

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Обратиться к файлу и обработать ошибку( если файла нету )
     
  3. oshmianski

    oshmianski Гость

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

    Код (Text):
    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
     
  4. Axel

    Axel Гость

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

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

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

     
  5. Kee_Keekkenen

    Kee_Keekkenen Well-Known Member

    Регистрация:
    5 сен 2006
    Сообщения:
    616
    Симпатии:
    4
    путь(folder) должен заканчиваться символом \

    Код (Text):
    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
     
  6. SOFTOBZOR.ru

    SOFTOBZOR.ru Гость

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

Поделиться этой страницей