[VB5] Caricare i nome dei file .txt in una combo

[GudFella]

in VB6

    Open file For Input Access Read Lock Read As #1
        Do While Not EOF(1)
            Line Input #1, str
            combo.AddItem str
        Loop
    Close #1