dim pInt as integer
Private Function StatFilecount(ByVal pDirInfo As System.IO.DirectoryInfo) As Integer
Dim pDirectinfo As System.IO.DirectoryInfo
StatFilecount = StatFilecount + pDirInfo.GetFiles.Length
Dim pSysinfo As System.IO.FileSystemInfo() = pDirInfo.GetDirectories()
Dim pstr As String
For Each pDirectinfo In pSysinfo
Console.Write(pDirectinfo.Name & "|")
StatFilecount(pDirectinfo)
Next
pInt = pInt + StatFilecount
End Function
这样行吗?效率可能不高!