Recursos Visual Basic.NET, VB.NET, Manuales de programación, Tutoriales, Foros de programación, Comunidad de programadores

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