# Re: 如何得知目录内以某档名开硕的档案各数 ??

Posted by 小琳 on August 02, 1999 at 21:09:41:

In Reply to: 如何得知目录内以某档名开硕的档案各数 ?? posted by hh on August 02, 1999 at 17:40:16:

: 请教各位:
: 如何得知 C:\abc\19990802.??? 的档案数呢 ?

: 谢谢 !!

:::使用Dir()函数就可以：
Private Sub Command1_Click()
Dim i As Integer
Dim temp As String
temp = ""
temp = Dir("F:\c\PCA\car\0724\d*.*")
Do While temp <> ""
i = i + 1
temp = Dir
Loop
MsgBox i
End Sub

Follow Ups: