Visual Basic.NET How to Program (PDF)

760 Files and Streams Chapter 17
46 ' handle exception if StreamReader is unavailable
47 Catch exceptionCatch As IOException
48
49 ' display error
50 MessageBox.Show("FILE ERROR", "FILE ERROR", _
51 MessageBoxButtons.OK, MessageBoxIcon.Error)
52
53 End Try
54
55 ' determine whether fileName is a directory
56 ElseIf Directory.Exists(fileName) Then
57
58 Dim directoryList As String() ' array for directories
59 Dim i As Integer
60
61 ' get directory's creation date, modification date, etc
62 txtOutput.Text = GetInformation(fileName)
63
64 ' obtain directory list of specified directory
65 directoryList = Directory.GetDirectories(fileName)
66
67 txtOutput.Text &= vbCrLf & vbCrLf & _
68 "Directory contents:" & vbCrLf
69
70 ' output directoryList contents
71 For i = 0 To directoryList.Length - 1
72 txtOutput.Text &= directoryList(i) & vbCrLf
73 Next
74
75 ' notify user that neither file nor directory exists
76 Else
77 MessageBox.Show(txtInput.Text & " does not exist", _
78 "FILE ERROR", MessageBoxButtons.OK, _
79 MessageBoxIcon.Error)
80 End If
81
82 End If ' determine whether user pressed Enter key
83
84 End Sub ' txtInput_KeyDown
85
86 ' get information on file or directory
87 Private Function GetInformation(ByRef fileName As String) _
88 As String
89
90 Dim information As String
91
92 ' output that file or directory exists
93 information = fileName & " exists" & vbCrLf & vbCrLf
94
95 ' output when file or directory was created
96 information &= "Created : " & _
97 File.GetCreationTime(fileName) & vbCrLf
98
Fig. 17.5 FrmFileTest class tests classes File and Directory (part 2 of 3).