Проверяет существование папки на сервере ZuluServer.
Visual Basic:
Function Exists() As Boolean
Метод ZsConnection.GetFolder всегда вернет объект ZsFolder. Метод Exists позволяет проверить возвращаемый объект.
Если запрошенная папка существует, метод вернет True. В противном случае метод вернет False.
'Объявляем объект 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", 0) 'Проверяем существование запрошенной папки If Zsf.Exists = False Then MsgBox "Запрошенная папка не существует" End If 'Закрываем соединение Zsc.Disconnect End If