01.Imports System.IO
02.Public Class Form1
03. Private FileName As String
04. Private Sub btnRead_Click(ByVal sender As System.Object, _
05. ByVal e As System.EventArgs) Handles btnRead.Click
06. Dim myStream As Stream = Nothing
07. Dim fd As New OpenFileDialog()
08. fd.InitialDirectory = "C:\Now"
09. fd.Filter = "PDF Files(*.pdf)|*.pdf"
10. fd.FilterIndex = 1
11. fd.RestoreDirectory = True
12. Try
13. If fd.ShowDialog() = DialogResult.OK Then
14. Process.Start(fd.FileName.ToString)
15. End If
16. FileName = Path.GetFileName(fd.FileName.ToString)
17. Catch Ex As Exception
18. MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message)
19. End Try
20. End Sub
21. Private Sub btnSave_Click(ByVal sender As System.Object, _
22. ByVal e As System.EventArgs) Handles btnSave.Click
23. Dim fd As New SaveFileDialog()
24. fd.InitialDirectory = "C:\New"
25. fd.Filter = "PDF Files(*.pdf)|*.pdf"
26. fd.FilterIndex = 1
27. fd.FileName = FileName
28. Try
29. If fd.ShowDialog() = DialogResult.OK Then
30. File.Move(FileName, fd.FileName)
31. End If
32. Catch Ex As Exception
33. MessageBox.Show("Cannot save file to disk. Original error: " & Ex.Message)
34. End Try
35. End Sub
36.End Class
