VB 求助統計文件夾的文件數量！

Private Sub Dir1_Click()

n = 0

filenum Dir1.List(Dir1.ListIndex)

MsgBox n

End Sub

Function filenum(ByVal folder As String)

Set fso = CreateObject("scripting.filesystemobject")

Set fd = fso.GetFolder(folder)

n = n + fd.Files.Count

For Each sfd In fd.subfolders

DoEvents

filenum sfd

Next

End Function