Возвращает объект ZsFolder, содержащий информацию о папке, расположенной на ZuluServer.
Visual Basic:
Function GetFolder(Path As String, Flag As Long) As ZsFolder
Path - путь папки на сервере.
Flag - зарезервировано, должно быть 0.
Информацию о папке на сервере можно получить, если папка существует, при наличии соответствующих прав, и если с сервером установлено соединение.
'Объявляем объект ZsFolder Dim Zsf As ZsFolder 'Объявляем и создаем объект ZsConnection Dim Zsc As ZsConnection Set Zsc = New ZsConnection 'Устанавливаем соединение If Zsc.Connect("zs.zulugis.ru", 6473, "", "") = -1 Then MsgBox "Не установить соединение" Else 'Получаем информацию о папке Set Zsf = Zsc.GetFolder "Test1\Test2", 0 'Выводим количество элементов в папке MsgBox Zsf.GetItemCount 'Закрываем соединение Zsc.Disconnect End If