Возвращает числоZsFolder object, содержащее информацию об атрибутах элемента папки, расположенного на ZuluServer.

Применяется к:

ZsFolder

Синтаксис:

Visual Basic:

Function GetItemAttributes(Index As Long) As Long

Index - номер элемента папки.

Описание:

Возвращаемое значение в зависимости от типа элемента:

0x0001	векторный слой
0x0002	карта
0x0003	проект
0x0200	виртуальная папка
0x0100	папка
0x0401	растровый слой
0x0801	слой рельефа
0x0C01	слой WMS
0x1001	тайловый слой

Пример:

'Объявляем объект 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 "Запрошенная папка не существует"
Else

'Получаем информацию о первом элементе папки
If Zsf.GetItemCount > 0 Then

If Zsf.GetItemAttributes(0) = &H100 Then

MsgBox "Папка"

End If

End If

End If

'Закрываем соединение
Zsc.Disconnect

End If