[VB5] Caricare una combo con i nomi dei file

[mgmg]

Se ho capito bene devi caricare nella combobox tutti i file che sono presenti nella directory:

Private Sub Command1_Click() 
Percorso = "C:\Documents and _ 
Settings\Claudio\Desktop\SaveTestoEmail\Testo\"
combo1.Clear
x = Trim(Percorso & "*.txt")
y = Dir(x)
Do Until y = ""
    Combo1.AddItem y, i
    y = Dir
    i = i +1 
Loop
End Sub

Ciao