Export PDF or Excel file from Crystal Reports using save dialog

Question

I'm currently using this code, How to use save dialog to implement at this code. I also tried this: Dim path As String = IO.Path.GetDirectoryName(SaveFileDialog.FileName)

Try
   Dim CrExportOptions As CrystalDecisions.Shared.ExportOptions
   Dim CrDiskFileDestinationOptions As New  _
   CrystalDecisions.Shared.DiskFileDestinationOptions()
   Dim CrFormatTypeOptions As New CrystalDecisions.Shared.PdfRtfWordFormatOptions()
   CrDiskFileDestinationOptions.DiskFileName = "c:/crystalExport.pdf"
   CrExportOptions = crypt.ExportOptions
      With CrExportOptions
          .ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile
          .ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableDocFormat
          .DestinationOptions = CrDiskFileDestinationOptions
          .FormatOptions = CrFormatTypeOptions
      End With
      crypt.Export()
  Catch ex As Exception
  End Try