1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

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

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

    SOFTOBZOR.ru Гость

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

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

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

    oshmianski Гость

    Репутация:
    0
    Для: 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
     
  4. Axel

    Axel Гость

    Репутация:
    0
    Зачем так все усложнять???

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

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

     
  5. Kee_Keekkenen

    Kee_Keekkenen Well-Known Member

    Репутация:
    0
    Регистрация:
    5 сен 2006
    Сообщения:
    639
    Симпатии:
    6
    путь(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
     
  6. SOFTOBZOR.ru

    SOFTOBZOR.ru Гость

    Репутация:
    0
    Вопрос отпал, решил @сабаками
    Правда в notes.ini пришлось переменную заталкать.
    Ну это не проблемма, просто есть определенный "накат приблуда" которую очень хотелось прикрутить к лотусу, а эту придлуду вызывать из лотуса. Ну так вот, если приблуда есть (установлена) то выводится кнопка для запуска, если не не выводится.
    При инсталяции приблуды, прописываю в ini путь до приблуды.
    Так в общем и решилось, сделал инсталяшку.
    Всем спасибо!
     
Загрузка...
Похожие Темы - Проверка существования локального
  1. Kaiser
    Ответов:
    0
    Просмотров:
    744
  2. ghost
    Ответов:
    0
    Просмотров:
    846
  3. WebWare Team
    Ответов:
    1
    Просмотров:
    8.919
  4. Ruska132
    Ответов:
    12
    Просмотров:
    1.876
  5. k85
    Ответов:
    24
    Просмотров:
    2.725
Статус темы:
Закрыта.

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