7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
dsclub 2003-02-09
- 打赏
- 举报
用DIR()就可以解决了
verybelial 2003-02-09
- 打赏
- 举报
用一个文件列表控件 Filelist
a=File1.Count
a=File1.Count
northwolves 2003-02-09
- 打赏
- 举报
Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim fd As Folder
Set fd = fso.GetFolder("C:\Program Files\Kingsoft\XDict\dicts")
MsgBox fd.Files.Count
End Sub
Dim fso As New FileSystemObject
Dim fd As Folder
Set fd = fso.GetFolder("C:\Program Files\Kingsoft\XDict\dicts")
MsgBox fd.Files.Count
End Sub
