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

 

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

 

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

 

RonTermit
ну раз выкабениваешся Ронин, то тогда уж

строки

If fileNameArray = Filename Then IsLibExist=True
fileNameArray = Dir$()

лучше заменить на строки

If fileNameArray = Filename Then 
IsLibExist=True
fileNameArray = ""
else
fileNameArray = Dir$()
end if

что раз нашло, то уже дальше не переберало

 

мой вариант

Function checkFile(filePath As String) As Boolean
Dim attr As Integer
try:
On Error Goto catch
attr = Getfileattr(filePath)
If attr >= 32 And attr < 48 Then checkFile = True
Exit Function
catch:
Resume Next
End Function