做个VB小工具，可以搜索文件夹内的文本文件

Private Sub GetFile(ByVal strPath As String)
Dim strDir As String
Dim i As Integer, j As Integer
Dim SubDirectory() As String
On Error Resume Next
i = -1
strPath = strPath & IIf(Right(strPath, 1) = "\", "", "\")
strDir = Dir(strPath & "*.txt", vbNormal + vbHidden + vbReadOnly + vbSystem)
Do While strDir <> ""
Debug.Print strPath & strDir
strDir = Dir
Loop
strDir = Dir(strPath, vbDirectory)
Do While strDir <> ""
If strDir <> "." And strDir <> ".." Then
If (GetAttr(strPath & strDir) And vbDirectory) = vbDirectory Then
i = i + 1
ReDim Preserve SubDirectory(i)
SubDirectory(i) = strPath & strDir
End If
End If
strDir = Dir