通过对象模型上传List Template

最新推荐文章于 2025-07-22 09:39:58 发布

转载最新推荐文章于 2025-07-22 09:39:58 发布 · 94 阅读

本文介绍如何使用SharePoint API在SharePoint网站中上传、获取及应用自定义的列表模板(.stp文件)。包括上传模板文件到指定目录，从站点获取自定义列表模板集合，并利用这些模板创建新的列表。

List template文件放在Site Actions – Galleries - List templates中。

1.上传.stp文件

Private Sub UploadTemplates(ByVal _site As SPSite)

    Dim directory As String = String.Format("{0}\ListTemplates", Application.StartupPath)

    Try

        If System.IO.Directory.Exists(directory) Then

            Dim templates As String() = System.IO.Directory.GetFiles(directory, "*.stp", System.IO.SearchOption.TopDirectoryOnly)

            Dim listTemplates As SPDocumentLibrary = TryCast(_site.GetCatalog(SPListTemplateType.ListTemplateCatalog), SPDocumentLibrary)

            If Not IsNothing(listTemplates) Then

                For Each template As String In templates

  

                    Dim fileInfo As New System.IO.FileInfo(template)

                    Dim query As New SPQuery()

                    query.Query = String.Format("<Where><Eq><FieldRef Name='FileLeafRef'/>" & "<Value Type='Text'>{0}</Value></Eq></Where>", fileInfo.Name)

                    Dim existingTemplates As SPListItemCollection = listTemplates.GetItems(query)

  

                    Dim Ids As Integer() = New Integer(existingTemplates.Count - 1) {}

                    For i As Integer = 0 To existingTemplates.Count - 1

                        Ids(i) = existingTemplates(i).ID

                    Next

                    For j As Integer = 0 To Ids.Length - 1

                        listTemplates.Items.DeleteItemById(Ids(j))

                    Next

  

                    Dim stp As Byte() = System.IO.File.ReadAllBytes(template)

                    listTemplates.RootFolder.Files.Add(fileInfo.Name, stp)

                Next

            End If

        End If

    Catch ex As Exception

  

    End Try

End Sub

2.得到ListTemplate Collection

Dim listTemplates As SPListTemplateCollection = _site.GetCustomListTemplates(_web)

 ListBox1.Items.Clear()

For Each listTemplate As SPListTemplate In listTemplates

    ListBox1.Items.Add(listTemplate.Name)

Next

3.通过List template创建SPList

Private Sub CreateList(ByVal _site As SPSite, ByVal _web As SPWeb, ByVal listTemplateName As String)

  

    Dim listTemplates As SPListTemplateCollection = _site.GetCustomListTemplates(_web)

  

    Dim listTemplate As SPListTemplate = listTemplates(listTemplateName)

    _web.Lists.Add(listTemplateName, "description", listTemplate)

  

End Sub