vb6 - VB6で*.frmファイルをループして開くにはどうすればよいですか?

Question

VB6 では.frm、フォルダー内のすべてのファイルをループして、それぞれに何かを行うにはどうすればよいですか?

Answer 1

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