leer los archivos de una carpeta y mostrarlos en un combobox (cerrado)

[Zeroql]

bueno resulta que me dio por manejar archivos de idioma en una aplicacion, pero resulta  que no me acuerdo de la api ni del code que se usa para leer archivos de una carpeta y mostrarlos en un combo box si alguien sabe muchas gracias por su post y colaboracion.

[((( SPAWN )))]

hola, lo q entendi es q queres agregar en un combobox los archivos q se encuentran en una carpeta.

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim xFile$
    xFile = Dir$("c:\Carpeta\*.*", vbArchive)
    Do
        Combo1.AddItem xFile
        xFile = Dir
    Loop While xFile <> ""
End Sub


Saludos.

[Zeroql]

no es el mismo que conocia yo, el que tenia usaba apis, pero:
((( SPAWN ))) muchas gracias por tu aporte. me sirve de mucho.

damos cerrado el tema.

[((( SPAWN )))]

Hola como estas, tal vez sea esta la Api q me decis:

Código [Seleccionar] Expandir


Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CB_DIR = &H145
Private Const DDL_ARCHIVE = &H20

Private Sub Command1_Click()
Dim path$
    path = "c:\Carpeta\*.*"
    SendMessage Combo1.hwnd, CB_DIR, DDL_ARCHIVE, ByVal path
End Sub


Saludos.

[~~]

O usando FindFirstFile y FindNextFile

[Zeroql]

((( SPAWN ))) de nuevo gracias....
creo que ahora si podemos dar por cerrado el tema. que decis EON.