Как перебрать и открыть файлы * .frm в VB6?

Question

В VB6, как я могу перебрать все файлы .frm в папке и что-то сделать с каждым из них?

Answer 1

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