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

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

Наш партнер Genesis Hackspace
  1. PavelT100

    PavelT100 Well-Known Member

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

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

    Регистрация:
    7 авг 2006
    Сообщения:
    3.920
    Симпатии:
    1
    PavelT100
    Код (Text):
    ' 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 Гость

    Код (Text):
    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 скриптописец

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

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

    Kee_Keekkenen Well-Known Member

    Регистрация:
    5 сен 2006
    Сообщения:
    628
    Симпатии:
    5
    мой вариант
     
Загрузка...
Похожие Темы - как на провериь
  1. zehrx
    Ответов:
    21
    Просмотров:
    420
  2. miron2
    Ответов:
    10
    Просмотров:
    298
  3. PingVinich
    Ответов:
    1
    Просмотров:
    227
  4. Петручо
    Ответов:
    3
    Просмотров:
    220
  5. Станислав Гапотченко
    Ответов:
    12
    Просмотров:
    406

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