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

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

  1. PavelT100

    PavelT100 Well-Known Member

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

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

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    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.927
    Симпатии:
    0
    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
    Сообщения:
    616
    Симпатии:
    4
    мой вариант
     
Загрузка...

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