vb.net：
我们提供的服务有：成都网站设计、做网站、微信公众号开发、网站优化、网站认证、永德ssl等。为近1000家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的永德网站制作公司
Dim
path
=
System.IO.Directory.GetFiles("D:\Log\abc",
"*.txt",
SearchOption.AllDirectories)：搜索该路径下的所有txt类型的目录及子目录
path.AddRange(path)
Dim
_RecordInfo
As
String
Dim
_Reader
As
StreamReader
_Reader
=
New
StreamReader(file,
System.Text.Encoding.Default)：'以Default编码的形式读取file文件(文件写入的编码要与读取的编码一致)
IO.Directory.GetDirectories("文件夹") '获取文件夹中的所有子文件夹路径。
IO.Directory.GetFiles("文件夹") '获取文件夹下所有文件的路径。
'子文件夹的子文件夹，用递归；
'把下面的目录改成你要遍历的目录
Dim MyDir = "C:\Windows"
Dim MyInfo = MyDir + "目录下的所有文件包括："
For Each MyFile In System.IO.Directory.GetFiles(MyDir)
MyInfo += Environment.NewLine + MyFile
Next
Me.RichTextBox1.Text =MyInfo
给你一个提示吧！呵呵，剩下的要自己思考哦！
Path：是初始目录的路径
Private Sub WriteArray(ByVal Path As String)
'写入数组代码在这里，直接将Path写到数组就行了。
Dim dir As New IO.DirectoryInfo(Path)
For Each d As IO.DirectoryInfo In dir.GetDirectories
WriteArray(d.FullName) '递归
Next
End Sub
如果子目录较多那么递归会比较费时间，在调用递归前加入application.doevent就行了，这样在应对大递归时不会死机。
至于数组嘛使用 arraylist 最好了。
回答补充：
把递归去掉就行了啊！
解压密码：1299
假设路径为C:\abc
代码：
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim Files As ObjectModel.ReadOnlyCollection(Of String) = My.Computer.FileSystem.GetFiles("C:\abc")
Dim FileSize As Long, FileName As String = Nothing
Dim oFileSize As Long
For Each File As String In Files
oFileSize = My.Computer.FileSystem.GetFileInfo(File).Length
If oFileSize FileSize Then
FileSize = oFileSize
FileName = File
End If
Next
Dim ListN As ListViewItem = New ListViewItem(My.Computer.FileSystem.GetName(FileName))
ListN.SubItems.Add(oFileSize " byte")
ListN.SubItems.Add(My.Computer.FileSystem.GetFileInfo(FileName).Extension " 文件")
ListN.SubItems.Add(FileName)
ListView1.Items.Add(ListN)
End Sub
End Class
详见源代码！！
