[SPS2010]: List SPWeb properites

Imports System.Web

Imports System.Collections

Imports Microsoft.SharePoint

Imports Microsoft.SharePoint.Utilities

 

Module Module1

 

Sub Main()

　　Using SPSite As New SPSite("http://devisa2/Sites/Lab02")

　　　　Using web As SPWeb = SPSite.OpenWeb()

　　　　　　Dim props As SPPropertyBag = web.Properties

　　　　　　For Each de As DictionaryEntry In props

　　　　　　　　Console.WriteLine("Key = {0}, Value = {1}", de.Key, de.Value)

　　　　　　Next

　　　　End Using

　　End Using

　　Console.ReadLine()

End Sub

End Module