如何在VB6中循环并打开* .frm文件？

Question

在VB6中，我如何遍历文件夹中的所有.frm文件并对每个文件执行某些操作？

Answer 1

MyFile = Dir(CurDir() & "\" & "*.frm")
Do While MyFile <> ""
    ' do stuff to file
    MyFile = Dir
Loop