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
a=File1.Count