vb如何检测一个文件夹下多个txt文件（求代码）

'添加Text1 Command1
'本代码不侦测下一层的文件夹,就只搜你在text1里输入的路径.
'遍历文件夹另有不同的代码

Private Sub Form_Load()
Text1.Text = "c:\\"
End Sub

Private Sub Command1_Click()
On Error Resume Next
Dim sSave As String, Ret As Long, r As Long, rtn As Long, kk As Long
Dim fol, fso, fil, fils, s, f, fldr
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder(Text1.Text)
Set fils = fldr.Files
kk = 0
Me.Cls
For Each fil In fils
s = s & fil.Name
aa = midstr & "\\" & fil.Name
If UCase(Right(aa, 3)) = "TXT" Then
songname = aa
i = InStrRev(songname, "\\")
If i > 0 Then
bb = Mid(songname, i + 1) ' 获取文件名
Print bb
kk = kk + 1
End If
End If
Next
MsgBox "共有" & Str(kk) & " 个.txt的文件"
End Sub