1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

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

как на Ls провериь наличие файла ?

Тема в разделе "Lotus - Программирование", создана пользователем PavelT100, 2 июл 2008.

  1. PavelT100

    PavelT100 Well-Known Member

    Репутация:
    0
    Регистрация:
    9 июл 2007
    Сообщения:
    103
    Симпатии:
    0
    Как на Lotus Script можно проверить наличие файла на диске ?
    На текущий момент я придумал тольк воспользоваться командой dir и запускать ее через shell - но это как-то уж очень коряво, а по другому нельзя ?
     
  2. morpheus

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

    Репутация:
    0
    Регистрация:
    7 авг 2006
    Сообщения:
    3.915
    Симпатии:
    1
    PavelT100
    Код:
    ' List the contents of the c:\ directory, one entry per line.
    Dim pathName As String, fileName As String
    pathName$ = "c:\*.*"
    fileName$ = Dir$(pathName$, 0)
    Do While fileName$ <> ""
    Print fileName$ ' тута всунуть нужную проверку
    fileName$ = Dir$()
    Loop
     
  3. RonTermit

    RonTermit Гость

    Репутация:
    0
    Код:
    Function IsLibExist(FilePath As String, Filename As String) As Boolean ' узнаём что файл существует
    Dim fileNameArray As String	
    IsLibExist=False
    fileNameArray = Dir$(FilePath, 0)
    Do While fileNameArray <> ""
    If fileNameArray = Filename Then IsLibExist=True
    fileNameArray = Dir$()
    Loop
    End Function
     
  4. morpheus

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

    Репутация:
    0
    Регистрация:
    7 авг 2006
    Сообщения:
    3.915
    Симпатии:
    1
    RonTermit
    ну раз выкабениваешся Ронин, то тогда уж

    строки
    Код:
     
    If fileNameArray = Filename Then IsLibExist=True
    fileNameArray = Dir$()
    лучше заменить на строки
    Код:
    If fileNameArray = Filename Then 
    IsLibExist=True
    fileNameArray = ""
    else
    fileNameArray = Dir$()
    end if
    что раз нашло, то уже дальше не переберало
     
  5. Kee_Keekkenen

    Kee_Keekkenen Well-Known Member

    Репутация:
    0
    Регистрация:
    5 сен 2006
    Сообщения:
    639
    Симпатии:
    6
    мой вариант
     
Загрузка...

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