# Re: 请问:如何取得程式中所有 Form 之名称(用dir()试试看)

Posted by nothing on April 07, 1999 at 08:46:37:

In Reply to: Re: 请问:如何取得程式中所有 Form 之名称(无内文) posted by Help on April 06, 1999 at 23:32:08:

: : 请查vb-help 中之"forms", 即可找到解答
: : for i to forms.count-1
: : debug.print forms(i).name
: : next

: 以上之作法只能取得已经 LOAD 进来 From 之资料
: 我的需求是包括尚未 Load(在 MDIForm 之情形) 进来所有 Form 之资料
: 不知是否有其中方法?

用dir()试试看
Private Sub Command3_Click()
Myfile = Dir("C:\account\*.frm")

Do While Myfile <> "" ' 执行回圈。
MsgBox (Myfile)
Myfile = Dir ' 寻找下一个档案。
Loop
End Sub

Follow Ups: