vb中如何得到CommonDialog1打开的文件夹中文件的数量这个值

引用Microsoft Scripting Runtime
Private Sub Form_Load()
MsgBox ShowFolderFiles("D:\")
End Sub

Function ShowFolderFiles(folderspec) As Long
Dim fs As FileSystemObject, f As Folder
Dim lret As Long
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
lret = f.Files.Count
ShowFolderFiles = lret
End Function

filesystem.folder（path).count