VB中有没有一个函数，可以获取文件夹里的文件数量（包括文件夹）。

VB可使用DriveListBox 控件，DirListBox 控件和FileListBox 控件组合使用获取文件夹里的文件数量（包括文件夹）。

DriveListBox 控件

在运行时，由于有

DriveListBox

控件，所以可选择一个有效的磁盘驱动器。该控件用来显示用户系统中所有有效春闹磁盘驱动器的列兄森皮表。可以创建对话框，通过它从任一可用驱动器的磁盘文件列表中打开文件。

DirListBox 控件

在运行时，DirListBox

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

FileListBox 控件

在运行时，在 Path

属性指定的目录中，FileListBox

控件将文件定位并列举出来。该控件用来显示所选择文件类型的文件列表。例如，可以在应用程序中创建对话框，通过它选择一个文件或者一组羡差文件。

ListCount 属性

返回控件的列表部分项目的个数。

以下是具体代码：

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

图片是获取C盘下Program Files目录夹下的文件数和文件夹数

可以使用函数dir，d

=

dir('directory_name')返回圆段一个结构数组，包含了文件夹directory_name下的子文件夹和子游庆文件的一些信息，第1个成员是文橘磨誉件名，第4个成员表示是否为文件夹。要注意的是第1个数组元素和第2个数组元素分别是'.'和'..'，表示当前目录和上层目录。

---