Hola


Aqui pongo un codigo para listar todas las carpetas del sistema en un listbox. Lo que necesitan es un DirListBox (Dir1), un timer (Timer1 con intervallo 1) y un ListBox (List1):


Código:

Dim a1 As Integer, a2 As Integer


Private Sub Form_Load()
Dir1.Path = "c:\"
For a = 0 To Dir1.ListCount - 1
Dir1.ListIndex = a
List1.AddItem Dir1.List(Dir1.ListIndex)
Next a
a1 = 0
a2 = List1.ListCount - 1
End Sub


Private Sub Timer1_Timer()
On Error Resume Next
For a = a1 To a2
List1.ListIndex = a
Dir1.Path = List1.Text
If Dir1.ListCount > 0 Then
For b = 0 To Dir1.ListCount - 1
Dir1.ListIndex = b
List1.AddItem Dir1.List(Dir1.ListIndex)
Next b
End If
Next a
a1 = a2 + 1
a2 = List1.ListCount - 1
If a1 = a2 Then
Timer1.Enabled = False
MsgBox "Fini"
End If
End Sub

Espero que sirva a alguien


PaulBGEdited by: PaulBG