通过对象模型上传List Template

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