Dim objApp As Object
Dim objRep As Object
Dim folder as String
Dim publish As String
Dim exportFormat As String

Sub Main ()
   Rem On Error Resume Next
   Set objApp = CreateObject("CognosPowerPlay.Application")
   rem folder = "C:\GAPS\Portal\System\Report"
   rem exportFormat = "pdf"
   rem publish = "C:\GAPS\Portal\daten"
   
   folder = GetField(Command, 1, ",")
   exportFormat = GetField(Command, 2, ",")
   publish = GetField(Command, 3, ",")

   Dim filename as String
   Dim exportFile as String
   Dim objPDF as Object
   
   filename = Dir(folder + "\")

   Do While filename <> ""
      If LCase(Right(filename, 4)) = ".ppr" Or LCase(Right(filename, 4)) = ".ppx" Then
         Set objRep = CreateObject("CognosPowerPlay.Report")
         objRep.Open(folder + "\" + filename)
         exportFile = publish + "\" + Left(filename, Len(filename) -4)
         Select Case exportFormat
            Case "pdf"
               
               Set objPDF = objRep.PDFFile(exportFile + "_0.pdf", True)
               With objPDF
                  .SaveEntireReport = True
                  .AxisOnAllPages = True
                  .ChartTitleOnAllPages = False
                  .IncludeLegend = False
               End With
               objPDF.Save

               For i = 1 to objRep.Layers.Count
                  Set objPDF = objRep.PDFFile(exportFile + "_" + i + ".pdf", True)
                  With objPDF
                     .SetListOfLayersToSave objRep.Layers.Subset(i, i)
                     .SetListOfRowsToSave objRep.Rows
                     .SaveEntireReport = False
                     .SaveAllCharts = False           
                     .AxisOnAllPages = True
                     .ChartTitleOnAllPages = True
                     .IncludeLegend = True
                  End With
                  objPDF.Save
               Next

            Case "asc"
               objRep.SaveAs exportFile, 3
            Case "xls"
               objRep.SaveAs exportFile, 4
            Case "ppx"
               objRep.SaveAs exportFile, 5
            Case Else
               objRep.Publish publish, False, True, True    
         End Select
         objRep.Close
      End if


      filename = Dir
   Loop
   objApp.Quit
End Sub