Question

vb获取文件夹包含文件数量

如图片描述。
1楼的方法试验未通过，期待中……

Answer 1

VB可以使用DriveListBox 控件，DirListBox 控件和FileListBox 控件组合可查看任何磁盘任何文件夹下的文件数和文件夹数。

DriveListBox 控件，在运行时，由于有
DriveListBox
控件，所以可选择一个有效的磁盘驱动器。该控件用来显示用户系统中所有有效磁盘驱动器的列表。可以创建对话框，通过它从任一可用驱动器的磁盘文件列表中打开文件。

DirListBox 控件，

在运行时，DirListBox
控件显示目录和路径。这个控件可以显示分层的目录列表。例如，可以创建对话框，在所有可用目录中，从文件列表打开一个文件。

FileListBox 控件，在运行时，在 Path
属性指定的目录中，FileListBox
控件将文件定位并列举出来。该控件用来显示所选择文件类型的文件列表。例如，可以在应用程序中创建对话框，通过它选择一个文件或者一组文件。

以下是具体代码：

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive   '设置目录路径。
End Sub

Private Sub Dir1_Change()
    File1.Path = Dir1.Path   '设置文件路径。
    Text1 = File1.ListCount
    Text2 = Dir1.ListCount
    Text3 = Val(Text1) + Val(Text2)
End Sub

Private Sub Form_Load()
    Dir1.Path = Drive1.Drive   '设置目录路径。
    File1.Path = Dir1.Path   '设置文件路径。
End Sub

实施效果：

Answer 2

Private Declare Function icePub_countFiles Lib "icePubDll.dll" (ByVal strCurrentPath As String,ByVal strPaths As String,ByVal strFiles As String) As Long

Dim a2 As Integer
Dim str1 As String
Dim str2 As String

str1 = Space(1024)
str2 = Space(1024)

a2 = icePub_countFiles("C:\",str1,str2)
MsgBox "目录总数：" + str1
MsgBox "文件总数：" + str2