Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Zeroql en 10 Abril 2008, 19:16 pm

Título: leer los archivos de una carpeta y mostrarlos en un combobox (cerrado)
Publicado por: Zeroql en 10 Abril 2008, 19:16 pm

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.

Título: Re: leler los archivos de una carpeta y mostrarlos en un combobox
Publicado por: ((( SPAWN ))) en 10 Abril 2008, 19:31 pm

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

Código:

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

Saludos.

Título: Re: leler los archivos de una carpeta y mostrarlos en un combobox
Publicado por: Zeroql en 10 Abril 2008, 19:56 pm

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.

Título: Re: leer los archivos de una carpeta y mostrarlos en un combobox (cerrado)
Publicado por: ((( SPAWN ))) en 10 Abril 2008, 20:16 pm

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

Código:

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.

Título: Re: leer los archivos de una carpeta y mostrarlos en un combobox (cerrado)
Publicado por: ~~ en 10 Abril 2008, 20:17 pm

O usando FindFirstFile y FindNextFile ;)

Título: Re: leer los archivos de una carpeta y mostrarlos en un combobox (cerrado)
Publicado por: Zeroql en 10 Abril 2008, 20:32 pm

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