Шаг 2. Инициализация главного списка
Чтобы объявить глобальные объекты Record и Recordset, вставьте следующий код в (Общие) (объявления) для Form1:
Option Explicit
Dim grec As Record
Dim grs As Recordset
Этот код объявляет глобальные ссылки на объекты Record и Recordset, которые будут использоваться позже в этом сценарии.
Подключение к URL-адресу и заполнение lstMain
Вставьте следующий код в обработчик событий Загрузки формы для Form1:
Private Sub Form_Load()
Set grec = New Record
Set grs = New Recordset
grec.Open "", "URL=https://servername/foldername/", , _
adOpenIfExists Or adCreateCollection
Set grs = grec.GetChildren
While Not grs.EOF
lstMain.AddItem grs(0)
grs.MoveNext
Wend
End Sub
Этот код создает экземпляры глобальных объектов Record и Recordset. Объект Record открывается с URL-адресом, grec
указанным в качестве ActiveConnection. Если URL-адрес существует, он открывается; Если он еще не существует, он создается. Обратите внимание, что следует заменить https://servername/foldername/
допустимым URL-адресом из вашей среды.
Объект grs
Recordset открывается в дочерних элементах объекта Record , grec
. Затем lstMain
заполняется именами файлов ресурсов, опубликованных по URL-адресу.
См. также:
Сценарий публикации в Интернете
Шаг 1. Настройка проекта Visual Basic
Шаг 3. Заполнение списка полей