如何解决使用VB6计算文件夹和子文件夹中的所有文件
在 VB6 中,我使用 Webbrowser 表单将所有文件和子文件夹显示为 Windows 资源管理器样式的图标。在表单上,我显示了主文件夹和所有子文件夹中所有文件的数量。到目前为止,这是我的代码,但无法找到有关计算子文件夹的任何信息。
Private Sub Load_Form()
Dim myPathName as String
Dim iTotalCount as Long
some stuff here ....
WebBrowser1.Navigate myPathName
WebBrowser1.Document.CurrentViewMode = 5 'medium icons
iTotalCount = FileCount(myPathName)
lblLabel.Caption = "Total Files = " & iTotalCount
more stuff here ....
End Sub
Public Function FileCount(myPathName as String) as Long
Dim FSO as New FileSystemObject
Dim fld as Folder
If FSO.FolderExists(myPathName) Then
Set fld = FSO.GetFolder(myPathName)
FileCount = fld.Files.Count
End If
End Function
This StackOverFlow question 类似,但对于 vb.net(我不知道)。我很感激有人指出我正确的方向。非常感谢。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。