[VB6] Caricare nomi di file in ComboBox e operazioni correlate

[LleoBasic]

è Corretto?

Dim fold As Object
Set fold = FSO.GetFolder(RFT & "cod")
i = 0
ran = Split(File, "\")
For i = 0 To UBound(ran)
For Each File In fold.Files
If Right$(File, 4) = ".ini" Then
Combo4.AddItem ran
End If
Next
Next