Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно. Необходимо обновить браузер или попробовать использовать другой.
Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby
1. Цифровая криминалистика и реагирование на инциденты2. ОС Linux (DFIR) Старт: 16 мая3. Анализ фишинговых атак Старт: 16 мая
Устройства для тестирования на проникновение Старт: 16 мая
Пытаюсь (хотя бы поймать нужную мне базу, добавить в список дело техники) так
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc=ws.CurrentDocument
Set doc=uidoc.Document
Dim dbdir As New NotesDbDirectory(doc.CServer(0))
Dim db As NotesDatabase
Set db = dbdir.GetFirstDatabase(DATABASE)
While Not(db Is Nothing)
doc.Path=db.FileName
eval=Evaluate("@Contains(Path;PathFrom)",doc)
If eval=True Then
Msgbox db.Title
End If
Set db = dbdir.GetNextDatabase
Wend
End Sub
На данном сайте используются cookie-файлы, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших cookie-файлов.