如何用vb获取文件夹中文件的个

来源：百度知道 编辑：UC知道 时间：2024/05/26 00:56:26
就是要得到AA文件夹中有个几文件(不是文件夹啊)急急急
1楼的基本实现，但是我现在AA文件夹中只有3个文件，可总说有4个，不知能不能再改一下。
2楼的是用控件，不是我现在需要的，不过以后会用到，也谢谢了。
3楼的好像不行吧。谢谢参与。

On Error Resume Next
Dim fso, fldPath, fld
fldPath = "c:\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(fldPath)
MsgBox fldPath & "共有" & fld.Files.Count & "个文件"

'放一个File1控件
Private Sub Form_Load()
File1.Path = App.Path
MsgBox "共有 " & File1.ListCount & "个文件"
Dim n As Integer
n = 0
For i = 1 To File1.ListCount
If Right(File1.List(i), 3) = "txt" Then n = n + 1'指定后缀
Next i
MsgBox "共有 " & n & "个txt文件"
End Sub

答案补充：咋不行？是不是没有文件的时候不行？加个on error resume next就行。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
建Command1,代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Dim i As Integer
Dir "d:\" '**这里是路径**
Do
i = i + 1
Loop While Len(Dir)
MsgBox i
End Sub