• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

  • Автор темы PavelT100
  • Дата начала
P

PavelT100

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

morpheus

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

Код:
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
 
M

morpheus

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

строки
Код:
If fileNameArray = Filename Then IsLibExist=True
fileNameArray = Dir$()

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

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

Kee_Keekkenen

мой вариант
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
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!