Dim rpt As ReportDocument, strExt As String, strPath As String
 
    Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog
    ' Set the Help text description for the FolderBrowserDialog.
    Me.FolderBrowserDialog1.Description = "Bitte Speicherordner auswählen!"
 
    ' Do not allow the user to create New files via the FolderBrowserDialog.
    Me.FolderBrowserDialog1.ShowNewFolderButton = True
 
    ' Default to the My Documents folder.
    Me.FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.MyComputer
 
 
    Dim result As DialogResult = FolderBrowserDialog1.ShowDialog()
    strPath = FolderBrowserDialog1.SelectedPath & "\" & txtFileName.Text
 
 
    rpt = CType(Me.CrystalReportViewer1.ReportSource, ReportDocument)
 
    Try
      With rpt.ExportOptions
        .ExportFormatType = _
          CrystalDecisions.Shared.ExportFormatType.PortableDocFormat
        .ExportDestinationType = _
        CrystalDecisions.Shared.ExportDestinationType.DiskFile
        Dim ddo As CrystalDecisions.Shared.DiskFileDestinationOptions = _
             New CrystalDecisions.Shared.DiskFileDestinationOptions
        ddo.DiskFileName = strPath
        .DestinationOptions = ddo
      End With
      rpt.Export()
      MessageBox.Show("Dokument wurde exportiert")
    Catch ex As Exception
      MessageBox.Show(ex.Message)
    End Try