Welcome
Thursday, February 17, 2005
+Display Properties for List (Doclib) Items in Site
This is a simple aspx page that you can call to iterate the files in your site libraries and display each item's properties.
<html>
<%@ Page language="VB"%> <%@ Register Tagprefix="SharePoint" Namespace="Microsoft.SharePoint.WebControls" Assembly="Microsoft.SharePoint, Version=11.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c" %> <%@ Register Tagprefix="Utilities" Namespace="Microsoft.SharePoint.Utilities" Assembly="Microsoft.SharePoint, Version=11.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c" %> <%@ Import Namespace="Microsoft.SharePoint" %> <%@ Register Tagprefix="WebPartPages" Namespace="Microsoft.SharePoint.WebPartPages" Assembly="Microsoft.SharePoint, Version=11.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c" %>
<!-- by Manuel Montes -- pastel_de_limon@hotmail.com -->
<HEAD>
<script language="vb" runat="server">
Public outputstring as string
Sub Page_Load(obj as object, e as eventargs)
Dim ThisWeb As SPWeb = SPControl.GetContextWeb(Context)
'ThisWeb.AllowUnsafeUpdates = True
Dim hash As System.Collections.Hashtable
Dim keys As System.Collections.ICollection
Response.Write(ThisWeb.url + "<BR>")
Dim lists as SPListCollection = ThisWeb.GetListsOfType(SPBaseType.DocumentLibrary)
For Each list as SPList In lists
Dim docLibrary As SPDocumentLibrary = CType(list, SPDocumentLibrary)
if not docLibrary.IsCatalog
Response.Write(docLibrary.Title + "<BR>")
For Each item as SPListItem in docLibrary.Items
hash = item.File.Properties
keys = hash.Keys
For Each key As Object In keys
Response.Write(SPEncode.HtmlEncode(key.ToString()) & " : " & SPEncode.HtmlEncode(hash(key.ToString()).ToString()) & ";")
Response.write("<BR>")
Next key
Response.Write("Next Item: <BR>")
Next item
End if
Next list
End Sub
</script></head><body></body></HTML>
<html>
<%@ Page language="VB"%> <%@ Register Tagprefix="SharePoint" Namespace="Microsoft.SharePoint.WebControls" Assembly="Microsoft.SharePoint, Version=11.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c" %> <%@ Register Tagprefix="Utilities" Namespace="Microsoft.SharePoint.Utilities" Assembly="Microsoft.SharePoint, Version=11.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c" %> <%@ Import Namespace="Microsoft.SharePoint" %> <%@ Register Tagprefix="WebPartPages" Namespace="Microsoft.SharePoint.WebPartPages" Assembly="Microsoft.SharePoint, Version=11.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c" %>
<!-- by Manuel Montes -- pastel_de_limon@hotmail.com -->
<HEAD>
<script language="vb" runat="server">
Public outputstring as string
Sub Page_Load(obj as object, e as eventargs)
Dim ThisWeb As SPWeb = SPControl.GetContextWeb(Context)
'ThisWeb.AllowUnsafeUpdates = True
Dim hash As System.Collections.Hashtable
Dim keys As System.Collections.ICollection
Response.Write(ThisWeb.url + "<BR>")
Dim lists as SPListCollection = ThisWeb.GetListsOfType(SPBaseType.DocumentLibrary)
For Each list as SPList In lists
Dim docLibrary As SPDocumentLibrary = CType(list, SPDocumentLibrary)
if not docLibrary.IsCatalog
Response.Write(docLibrary.Title + "<BR>")
For Each item as SPListItem in docLibrary.Items
hash = item.File.Properties
keys = hash.Keys
For Each key As Object In keys
Response.Write(SPEncode.HtmlEncode(key.ToString()) & " : " & SPEncode.HtmlEncode(hash(key.ToString()).ToString()) & ";")
Response.write("<BR>")
Next key
Response.Write("Next Item: <BR>")
Next item
End if
Next list
End Sub
</script></head><body></body></HTML>
