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

PavelT100

Well-Known Member
09.07.2007
103
0
#1
Как на Lotus Script можно проверить наличие файла на диске ?
На текущий момент я придумал тольк воспользоваться командой dir и запускать ее через shell - но это как-то уж очень коряво, а по другому нельзя ?
 

morpheus

скриптописец
07.08.2006
3 915
1
#2
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
 
R

RonTermit

Гость
#3
Код:
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
 

morpheus

скриптописец
07.08.2006
3 915
1
#4
RonTermit
ну раз выкабениваешся Ронин, то тогда уж

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