Dim file As String() = (Me.textBox1.Text)
For i As Integer = 0 To file.Length - 1
Dim fFile As New (file(i))
Me.RichTextBox1.AppendText(vbLf & "創建時間:" & fFile.CreationTime & "|" & "上次修改時間:" & fFile.LastAccessTime & "文件長度:" & fFile.Length & vbLf)
Next