Dim filename As String
Dim Coll As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
Coll = My.Computer.FileSystem.GetFiles( "E:Folder_Name ") 
For Each filename In Coll
''可以用 listview 或 treevIEw 顯示
Next