Reporting services 覆盖订阅中的现有文件名

我有一个批处理文件，它部署了一个.rss文件。rss文件具有创建10个报告订阅的脚本。部署批处理文件后，会触发.rss文件，从而在“报表管理器”中创建订阅（适用于所有10个报表）。 我的问题是，每次部署批处理文件时，都会创建一组新的订阅。i、 e）不覆盖现有订阅，而是创建一组新的副本。我最终得到了一份报告的许多订阅。 我需要一个脚本，在部署时覆盖现有文件。我必须使用任何方法吗？？ 需要帮助

创建订阅的代码：这相当混乱！请容忍我……）

副标题（）

rs.Credentials=System.Net.CredentialCache.DefaultCredentials
'要为其创建DDS的报告的名称
将完整路径设置为字符串=根路径
'将扩展名设置为Windows文件共享
作为新扩展设置的Dim设置（）
settings.Extension=“报表服务器文件共享”
'检索服务器中部署的rdl文件
将报表设置为字符串
Dim desc As字符串
Dim eventType为String=“TimedSubscription”
将路径设置为字符串=路径
尺寸i为整数=0
将项目作为CatalogItem（）进行调整=rs.ListChildren（完整路径，False）
将每个项目作为项目中的CatalogItem
如果item.Type=ItemTypeEnum.Report，则
i=i+1
desc=item.name
报告=完整路径&“/”&desc
Dim drp作为数据检索计划
Dim ser As Serialization.XmlSerializer=新的Serialization.XmlSerializer（GetType（DataRetrievalPlan））
Dim sr作为新的StringReader（“+Microsoft.VisualBasic.ControlChars.CrLf+”+Microsoft.VisualBasic.ControlChars.CrLf+”+Microsoft.VisualBasic.ControlChars.CrLf+“SQL”+Microsoft.VisualBasic.ControlChars.CrLf+“数据源”“&DBServer&“初始目录=ClearviewBilling”+Microsoft.VisualBasic.ControlChars.CrLf+“错误”+Microsoft.VisualBasic.ControlChars.CrLf+“false”+Microsoft.VisualBasic.ControlChars.CrLf+“Store”+Microsoft.VisualBasic.ControlChars.CrLf+“false”+Microsoft.VisualBasic.ControlChars.CrLf+“输入用户名和密码以访问数据源：”+Microsoft.VisualBasic.ControlChars.CrLf+“RptSrvr”+Microsoft.VisualBasic.ControlChars.CrLf+“部署1”+Microsoft.VisualBasic.ControlChars.CrLf+“真”+Microsoft.VisualBasic.ControlChars.CrLf+“”+Microsoft.VisualBasic.ControlChars.CrLf+“”+Microsoft.VisualBasic.ControlChars.CrLf+“”+Microsoft.VisualBasic.ControlChars.CrLf+“”+Microsoft.VisualBasic.ControlChars.CrLf+“报告ID”+Microsoft.VisualBasic.ControlChars.CrLf+“报告ID”+Microsoft.VisualBasic.ControlChars.CrLf+“”+Microsoft.VisualBasic.ControlChars.CrLf+“”+Microsoft.VisualBasic.ControlChars.CrLf+“报告名称”+Microsoft.VisualBasic.ControlChars.CrLf+“报告名称”+Microsoft.VisualBasic.ControlChars.CrLf+“”+Microsoft.VisualBasic.ControlChars.CrLf+“”+Microsoft.VisualBasic.ControlChars.CrLf+“路径”+Microsoft.VisualBasic.ControlChars.CrLf+“”+“”+Microsoft.VisualBasic.ControlChars.CrLf+“”+Microsoft.VisualBasic.ControlChars.CrLf+“”+Microsoft.VisualBasic.ControlChars.CrLf+“Text”+Microsoft.VisualBasic.ControlChars.CrLf+“exec uspSetSubscriptionParameters”&i&“，”&destpath&“+Microsoft.VisualBasic.ControlChars.CrLf+“30”+Microsoft.VisualBasic.ControlChars.CrLf+“”+Microsoft.VisualBasic.ControlChars.CrLf+“假”+Microsoft.VisualBasic.ControlChars.CrLf+“假”+Microsoft.VisualBasic.ControlChars.CrLf+“假”+Microsoft.VisualBasic.ControlChars.CrLf+“假”+Microsoft.VisualBasic.ControlChars.CrLf+“”+Microsoft.VisualBasic.ControlChars.CrLf+“”）
drp=序列反序列化（sr）
尺寸参数（0）作为参数值或字段参考
Dim参数1作为新参数FieldReference（）
parameter1.ParameterName=“ReportID”
参数1.FieldAlias=“ReportID”
参数（0）=参数1
Dim extensionParams（6）作为参数ValuerFieldReference
extensionParams（0）=新参数FieldReference（）
CType（extensionParams（0），ParameterFieldReference）。FieldAlias=“ReportName”
CType（extensionParams（0），ParameterFieldReference）。ParameterName=“FILENAME”
extensionParams（1）=新参数FieldReference（）
CType（extensionParams（1），ParameterFieldReference）。FieldAlias=“Path”
CType（extensionParams（1），ParameterFieldReference）。ParameterName=“PATH”
extensionParams（2）=新参数值（）
CType（extensionParams（2），ParameterValue）。Name=“呈现格式”
CType（扩展参数（2），参数值）。Label=“”
CType（extensionParams（2），ParameterValue）.Value=“PDF”
extensionParams（3）=新参数值（）
CType（extensionParams（3），ParameterValue）。Name=“WRITEMODE”
CType（extensionParams（3），ParameterValue）。Label=“”
CType（extensionParams（3），ParameterValue）。Value=“覆盖”
extensionParams（4）=新参数值（）
CType（extensionParams（4），ParameterValue）。Name=“FILEEXTN”
CType（扩展参数（4），参数值）。Label=“”
CType（extensionParams（4），ParameterValue）。Value=“True”
extensionParams（5）=新参数值（）
CType（extensionParams（5），ParameterValue）。Name=“USERNAME”
CType（扩展参数（5），参数值）。Label=“”
CType（extensionParams（5），ParameterValue）.Value=“SQL\U测试”
extensionParams（6）=新参数值（）
CType（extensionParams（6），ParameterValue）。Name=“PASSWORD”
CType（扩展参数（6），参数值）。Label=“”
CType（extensionParams（6），ParameterValue）.Value=“Rfgh”
将extSettings设置为新的扩展设置（）
extSettings.ParameterValues=扩展参数
extSettings.Extension=“报表服务器文件共享”
尺寸匹配数据字符串=“2011-02-14T01:00:00.000-05:00”
尝试
rs.CreateDataDrivenSubscription（报告、extSettings、drp、d
  rs.Credentials = System.Net.CredentialCache.DefaultCredentials

  'The name of the report for which the DDS are to be created

  Dim fullpath As String = rootpath


  'set extension as Windows File Share

  Dim settings as new ExtensionSettings()
  settings.Extension = "Report Server FileShare"

  'Retrieve rdl files deployed in the server

Dim report As String 
Dim desc As String 
Dim eventType As String = "TimedSubscription"
Dim destpath As String = Path

Dim i as Integer = 0

Dim items As CatalogItem() = rs.ListChildren(fullpath, False)
    For Each item As CatalogItem In items
        If item.Type = ItemTypeEnum.Report Then
    i = i + 1
    desc = item.name                
    report = fullpath &"/" & desc

    Dim drp As DataRetrievalPlan    
Dim ser As Serialization.XmlSerializer = New Serialization.XmlSerializer(GetType(DataRetrievalPlan))
Dim sr As New StringReader("<?xml version=""1.0"" encoding=""utf-16""?>" + Microsoft.VisualBasic.ControlChars.CrLf + "<DataRetrievalPlan xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"">" + Microsoft.VisualBasic.ControlChars.CrLf + "  <DataSourceDefinition xmlns=""http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices"">" + Microsoft.VisualBasic.ControlChars.CrLf + "    <Extension>SQL</Extension>" + Microsoft.VisualBasic.ControlChars.CrLf + "    <ConnectString>Data Source="& DBServer & ";Initial Catalog=ClearviewBilling</ConnectString>" + Microsoft.VisualBasic.ControlChars.CrLf + "    <UseOriginalConnectString>false</UseOriginalConnectString>" + Microsoft.VisualBasic.ControlChars.CrLf + "    <OriginalConnectStringExpressionBased>false</OriginalConnectStringExpressionBased>" + Microsoft.VisualBasic.ControlChars.CrLf + "    <CredentialRetrieval>Store</CredentialRetrieval>" + Microsoft.VisualBasic.ControlChars.CrLf + "    <WindowsCredentials>false</WindowsCredentials>" + Microsoft.VisualBasic.ControlChars.CrLf + "    <ImpersonateUser>false</ImpersonateUser>" + Microsoft.VisualBasic.ControlChars.CrLf + "    <Prompt>Enter a user name and password to access the data source:</Prompt>" + Microsoft.VisualBasic.ControlChars.CrLf + "    <UserName>RptSrvr</UserName>" + Microsoft.VisualBasic.ControlChars.CrLf + "    <Password>deploy1</Password>" + Microsoft.VisualBasic.ControlChars.CrLf + "    <Enabled>true</Enabled>" + Microsoft.VisualBasic.ControlChars.CrLf + "  </DataSourceDefinition>" + Microsoft.VisualBasic.ControlChars.CrLf + "  <DataSet xmlns=""http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices"">" + Microsoft.VisualBasic.ControlChars.CrLf + "    <Fields>" + Microsoft.VisualBasic.ControlChars.CrLf + "      <Field>" + Microsoft.VisualBasic.ControlChars.CrLf + "        <Alias>ReportID</Alias>" + Microsoft.VisualBasic.ControlChars.CrLf + "        <Name>ReportID</Name>" + Microsoft.VisualBasic.ControlChars.CrLf + "      </Field>" + Microsoft.VisualBasic.ControlChars.CrLf + "      <Field>" + Microsoft.VisualBasic.ControlChars.CrLf + "        <Alias>ReportName</Alias>" + Microsoft.VisualBasic.ControlChars.CrLf + "        <Name>ReportName</Name>" + Microsoft.VisualBasic.ControlChars.CrLf + "      </Field>" + Microsoft.VisualBasic.ControlChars.CrLf + "      <Field>" + Microsoft.VisualBasic.ControlChars.CrLf + "        <Alias>Path</Alias>" + Microsoft.VisualBasic.ControlChars.CrLf + "        <Name>Path</Name>" + Microsoft.VisualBasic.ControlChars.CrLf + "      </Field>" + Microsoft.VisualBasic.ControlChars.CrLf + "    </Fields>" + Microsoft.VisualBasic.ControlChars.CrLf + "    <Query>" + Microsoft.VisualBasic.ControlChars.CrLf + "      <CommandType>Text</CommandType>" + Microsoft.VisualBasic.ControlChars.CrLf + "      <CommandText>exec uspSetSubscriptionParameters "& i & ",'"& destpath &"'</CommandText>" + Microsoft.VisualBasic.ControlChars.CrLf + "      <Timeout>30</Timeout>" + Microsoft.VisualBasic.ControlChars.CrLf + "    </Query>" + Microsoft.VisualBasic.ControlChars.CrLf + "    <CaseSensitivity>False</CaseSensitivity>" + Microsoft.VisualBasic.ControlChars.CrLf + "    <AccentSensitivity>False</AccentSensitivity>" + Microsoft.VisualBasic.ControlChars.CrLf + "    <KanatypeSensitivity>False</KanatypeSensitivity>" + Microsoft.VisualBasic.ControlChars.CrLf + "    <WidthSensitivity>False</WidthSensitivity>" + Microsoft.VisualBasic.ControlChars.CrLf + "  </DataSet>" + Microsoft.VisualBasic.ControlChars.CrLf + "</DataRetrievalPlan>")
drp = ser.Deserialize(sr)

Dim parameters(0) As ParameterValueOrFieldReference

Dim parameter1 As New ParameterFieldReference()
parameter1.ParameterName  = "ReportID"
parameter1.FieldAlias = "ReportID"
parameters(0) = parameter1


Dim extensionParams(6) As ParameterValueOrFieldReference

extensionParams(0) = New ParameterFieldReference()
CType(extensionParams(0),ParameterFieldReference).FieldAlias = "ReportName"
CType(extensionParams(0),ParameterFieldReference).ParameterName = "FILENAME"

extensionParams(1) = New ParameterFieldReference()
CType(extensionParams(1),ParameterFieldReference).FieldAlias = "Path"
CType(extensionParams(1),ParameterFieldReference).ParameterName = "PATH"

extensionParams(2) = New ParameterValue()
CType(extensionParams(2),ParameterValue).Name = "RENDER_FORMAT"
CType(extensionParams(2),ParameterValue).Label = ""
CType(extensionParams(2),ParameterValue).Value = "PDF"

extensionParams(3) = New ParameterValue()
CType(extensionParams(3),ParameterValue).Name = "WRITEMODE"
CType(extensionParams(3),ParameterValue).Label = ""
CType(extensionParams(3),ParameterValue).Value = "OverWrite"

extensionParams(4) = New ParameterValue()
CType(extensionParams(4),ParameterValue).Name = "FILEEXTN"
CType(extensionParams(4),ParameterValue).Label = ""
CType(extensionParams(4),ParameterValue).Value = "True"

extensionParams(5) = New ParameterValue()
CType(extensionParams(5),ParameterValue).Name = "USERNAME"
CType(extensionParams(5),ParameterValue).Label = ""
CType(extensionParams(5),ParameterValue).Value = "SQL_Test"

extensionParams(6) = New ParameterValue()
CType(extensionParams(6),ParameterValue).Name = "PASSWORD"
CType(extensionParams(6),ParameterValue).Label = ""
CType(extensionParams(6),ParameterValue).Value = "Rfgh"


Dim extSettings As New ExtensionSettings()
extSettings.ParameterValues = extensionParams
extSettings.Extension = "Report Server FileShare"


Dim matchData As String = "<ScheduleDefinition xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance""><StartDateTime xmlns=""http://schemas.microsoft.com/sqlserver/2006/03/15/reporting/reportingservices"">2011-02-14T01:00:00.000-05:00</StartDateTime></ScheduleDefinition>"
Try
    rs.CreateDataDrivenSubscription(report, extSettings, drp, desc, eventType, matchData, parameters)
    Console.WriteLine("Subscription created successfully for "&desc)

catch ex as System.Exception
    Console.WriteLine(ex)
end try 


        End If

    Next