Dim myPdfFile As String = ListBox1.SelectedItem
Me.AxAcroPDF1.src = myPdfFile
Me.AxAcroPDF1.src = myPdfFile
Me.AxAcroPDF1.src = "C:\abc.pdf"
Dim Path As String = My.Application.Info.DirectoryPath
If Not Directory.Exists(Path & "\Temp_PDF") Then
Directory.CreateDirectory(Path & "\Temp_PDF")
End If
If File.Exists(Path & "\Temp_PDF\" & ReportName & ".pdf") Then
Try
File.Delete(Path & "\Temp_PDF\" & ReportName & ".pdf")
Catch ex As Exception
Return "Error - " & ex.Message
End Try
End If
Dim vFileName As String = Path & "\Temp_PDF\" & ReportName & ".pdf"