VB 统计一个文件夹里的文件数量？

放上一个

FileListBox

控件，

然后设置

File1.Path="你轿渣燃要统计的文件夹路径"

'File1

是FileListBox默认的控件名

然后：File1.ListCount属性就是文件夹中文件的数目。

可以将闭虚它赋梁纤值给一个变量进行显示

或

打印

在窗体上

Dim FileAttrib As VbFileAttribute

Dim intFileCount As Integer

Dim strFileName As String

FileAttrib = vbDirectory Or vbHidden Or vbReadOnly Or vbSystem Or vbArchive

intFileCount = 0

strFileName = Dir(路径,FileAttrib)

Do While Not strFileName = ""

intFileCount = intFileCount + 1

strFileName = Dir(,FileAttrib)

Loop

intFileCount就是该目录下的文件和子目录总数

如果不需仔判要计念告改算子目录,则

FileAttrib = vbHidden Or vbReadOnly Or vbSystem Or vbArchive

即友绝可

Dim a() As String

Private Sub Dir1_Change()

File1.Path = Dir1.Path

Label1.Caption = Dir1.Path

End Sub

Private Sub Drive1_Change()

On Error GoTo err1

Dir1.Path = Drive1.Drive

Exit Sub

err1:

MsgBox Err.Description, vbInformation + vbOKOnly, "提示"

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim ifieldcount As Integer, irecordcount As Integer

Dim wdapp As Word.Application

Dim wddoc As Word.Document

Dim atable As Word.Table

If Option2.Value = True Then

ReDim a(1 To File1.ListCount)

For i = 1 To File1.ListCount

b = File1.List(i)

a(i) = b

Next

End If

If Option1.Value = True Then

ReDim a(1 To Dir1.ListCount)

For i = 1 To Dir1.ListCount

b = Dir1.List(i)

a(i) = b

Next

End If

End Sub

这段程序 复制过去 就行了 创建的控件有 两个option 让你选择 要提取文件夹 还是文件歼好路径的 选中option 1 就是提取文件夹的 option2 就是提取文件的 然后再创建 Drive1 Dir1 File1 这三个亮改消 选择文件路径的 控件 再加一个 command 按钮 就行了 有疑问再联系我！！！！敬知！这个 只是 文件路径 你看看 是你想要的话 我再给你写 提取文件夹和文件名的代码！！！！

---