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

Question

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

Answer 1

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