Question

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

Answer 1

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目录夹下的文件数和文件夹数

Answer 2

dir函数可以查询文件夹和文件
语法：dir(路径，[类型])
看MSDN吧，帮助文件写地很详细

追问

请问路径可用相对路径吗？

追答

什么意思？
App.Path也是可以用的
比如 dir(App.Path & "\Source\" , VBDirectory) 可以查询是否有Source这个文件夹
dir(App.Path & "\Source\*.*) 可以返回 Source这个文件夹下的所有文件的文件名，调用一次返回一个，如果没有了，就返回空字符串。不过后面再调用就直接用dir(),括号里面什么也不用写
总之，你可以看MSDN
如果没有VB6.0的MSDN文件，你可以下载一个，也就13M多

Answer 3

没有现成的，需要写代码

追问

那怎么写，大虾？

追答

留下QQ我传给你代码，小虫

追问

957455952

Answer 4

用 API 函数

追问

API函数有很多个，是哪个啊？