lo hice para compartirlo con ustedes y espero que les sirva.
El code es este:
Código:
Sub code()
List1.AddItem ("C:\")
For y = 0 To 20000
Dir1.Path = List1.List(y)
For j = 0 To Dir1.ListCount - 1
For x = 0 To List1.ListCount
If Not List1.List(x) <> Dir1.List(j) Then
GoTo 1:
End If
Next x
If List1.ListCount <> 1000 Then
List1.AddItem (Dir1.List(j))
Else
GoTo 2:
End If
1
DoEvents
Next j
Next y
2
End Sub
El que entienda el code y sepa como funciona, va a saber como usarlo
y de que manera modificarlo para usarlo en otras cosas jeje.
No lo explico para que solo puedan usarlo quienes lo entiendan,
y espero que lo entiendad casi todos.
cuanto mas grande sea ese valor donde dice List1.ListCount <> 1000 mas carpetas va a dar (el que entienda el code va a saber de q hablo).
bueno espero que lo difruten y sepan como usarlo.
cualquier otra duda consulten y si es posible comenten que tal jeje
salu2 y suerte