SSRS 实现多个文件同时上传和下载到ReportManager的功能

AX2012的SSRS ReportManager服务只提供单个文件的上传和下载。

多个文件的上传和下载需要通过循环调用上传下载接口的方法来实现。

自己做的小工具上传上来。 为什么不能传文件，汗。

主要是参考下面的网页。

下载：http://moriroom.my.coocan.jp/site1/?p=424

上传：http://moriroom.my.coocan.jp/site1/?p=430

下载处理

Public Sub Main()
        '---------------------------------------
        ' スクリプト名称
        '   レポート(RDL)ダウンロード処理
        ' SQL Server 2012 以上
        ' スクリプトファイルは文字コード:utf-8で保存
        '---------------------------------------
        Console.WriteLine("レポート(RDL)ダウンロード処理")
        '---------------------------------------
        ' パラメータ表示
        '---------------------------------------
        Console.WriteLine("RSURL:" + RSURL)
        Console.WriteLine("DownloadPath:" + DownloadPath)
        Console.WriteLine("SaveFolder:" + SaveFolder)

        '---------------------------------------
        ' レポートサーバインスタンス生成
        '---------------------------------------
        Dim rs As New ReportingService2010()
        'rs.Url = "http://<レポートサーバ>:<ポート>/reportserver/ReportService2010.asmx"
        rs.Url = RSURL + "/ReportService2010.asmx"
        rs.Credentials = System.Net.CredentialCache.DefaultCredentials
        '---------------------------------------
        ' 変数宣言
        '---------------------------------------
        '//レポートアイテムリスト格納
        Dim items As CatalogItem() = Nothing
        '//エラーフラグ
        Dim ErrFlg As Integer = 0
        '//レポートアイテム読み込みバッファ
        Dim reportDefinition As Byte() = Nothing
        '//Xml Document
        Dim doc As New System.Xml.XmlDocument
        '//レポートアイテム
        Dim item As CatalogItem
        '//Path＋RDL
        Dim strItem As String
        '//UCase String
        Dim chrItem As String
        '//出力ファイルID
        Dim outItem As String
        '---------------------------------------
        ' ダウンロードフォルダアイテムリスト取得
        '---------------------------------------
        Try
            items = rs.ListChildren(DownloadPath, True)
        Catch e As SoapException
            Console.WriteLine("ListChildren Error!")
            Console.WriteLine(e.Message)
            ErrFlg = 1
        End Try

        If ErrFlg = 0 Then
            '---------------------------------------
            ' レポートをダウンロード
            '	item.Name : レポートＩＤ
            '	item.Path : レポート格納フォルダ
            '	item.TypeName : Report , Folder , DataSource , DataSet