Cargar archivos de una carpeta en un List1

[franko1809]

Alguien me puede ayudar?
La ruta siempre sera la misma c:\carpeta\listar estos archivos

[David]

¿No es más fácil usar un FileListBox?

Si necesariamente quieres un ListBox puedes usar sucesivas llamadas a la función Dir para listar los archivos.

[franko1809]

Lo necesito en un simple list1 pero cual es el compnente del filelistbox, no lo encuentro

[David]

Es un control predeterminado de VB6, lo encontrarás en el cuadro de herramientas sin necesidad de cargar un control adicional.

[franko1809]

Si tio pero cual es el nombre del compononete "microsoft filelistbox xx ....."
Bueno seguire buscando dicho control

[David]

Como te dije, no necesitas agregar ningún componente , ya está en el Cuadro de Herramientas por defecto, sin más.

[franko1809]

si tio disculpa
Una ultima cosa si con file1.filename obtengo el nombre de un archivo como hago para obtener el nombre de una carpeta con un dir1

[David]

Con Dir1.Path

[franko1809]

Con Dir1.Path obtengo toda la ruta de la carpeta y solo necesito el nombre de la carpeta, parece que no se puede osi

[David]

Pero eso ya es fácil, mira esto:
http://www.forosdelweb.com/2808814-post182.html

[seba123neo]

Código vb:

Private Sub Dir1_Change()
    MsgBox NombreCarpeta(Dir1.Path)
End Sub
 
Function NombreCarpeta(Path As String) As String
    Dim Nombre As String
    Nombre = Right(Path, Len(Path) - InStrRev(Path, "\"))
    NombreCarpeta = Nombre
End Function
 

[franko1809]

Gracias tios algo asi estaba intentando

saludos

[Avellaneda]

Bueno, si no te quieres complicar la vida con controles, simplemente pon éste código:

Código Visual Basic:

Dim s As String
    s = Dir("c:\carpeta\*.*")
    Do While s <> ""
        List1.AddItem s
        s = Dir
    Loop
 

[franko1809]

Iniciado por Avellaneda

Bueno, si no te quieres complicar la vida con controles, simplemente pon éste código:

Código Visual Basic:

Dim s As String
    s = Dir("c:\carpeta\*.*")
    Do While s <> ""
        List1.AddItem s
        s = Dir
    Loop
 

gracias tio