Dim mDefinition As [Byte]() = Nothing Dim mWarnings As Warning() = Nothing Dim mParentPath As String = "/" + pParentFolder
Public Sub Main()Sub Main() rs.Credentials = System.Net.CredentialCache.DefaultCredentials Dim name As String Dim items As CatalogItem() = Nothing Dim folderExist, dataSourceExist As Boolean
Try items = rs.ListChildren("/", True) '列举ReportServer根目录下所有项，判断目标目录是否已存在 Dim i As Integer For i = 0 To items.length - 1 If items(i).name.toUpper = pParentFolder.toUpper And items(i).Type = 1 Then '1表示Folder folderExist = True End If If items(i).name.toUpper = pParentFolder.toUpper And items(i).Type = 5 Then '5表示DataSource dataSourceExist = True End If Next Catch e As SoapException Console.WriteLine(e.Detail.InnerXML.ToString()) End Try
'创建目标目录 If folderExist Then Console.WriteLine("FOLDER EXISTED！") Else Try rs.CreateFolder(pParentFolder, "/", Nothing) Console.WriteLine("FOLDER:{0} CREATED SUCCESSFULLY！", pParentFolder) Catch e As Exception Console.WriteLine(e.Message) End Try End If
'创建数据源 If folderExist And dataSourceExist And pOverwriteDataSource = False Then Console.WriteLine("DATA SOURCE EXISTED！") Else CreateDataSource() End If
Try Dim di As DirectoryInfo If pFilePath = "" Then di = New DirectoryInfo(".") Else di = New DirectoryInfo(pFilePath) Dim files As FileInfo() = di.GetFiles("*.rdl") Console.WriteLine("TOTAL REPORT FILES: {0}", files.Length) Dim fiNext As FileInfo For Each fiNext In files DeployReport(Microsoft.VisualBasic.Left(fiNext.name, fiNext.name.length - 4)) Next Catch e As Exception Console.WriteLine(e.ToString()) End Try End Sub
Public Sub CreateDataSource()Sub CreateDataSource() Dim name As String = pDsName Dim parent As String = "/" + pParentFolder
精品推荐