Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim propList As IADsPropertyList
Dim propEntry As IADsPropertyEntry
Dim propVal As IADsPropertyValue
Dim attributValue As String
Set propList = GetObject(<adsPath>)
propList.GetInfo
Set propEntry = propList.GetPropertyItem( _
"<nomAttribut>", _
ADSTYPE_CASE_IGNORE_STRING)
Set propVal = propEntry.Values(<leNumeroAttribut>)
attributValue = propVal.CaseIgnoreString