én ese mismo post,
Robokop puso su propio code,
y yo lo optimize, para que quede con menos lineas,
y sea mas eficiente.
el code me quedo así
Te puse comentarios,
para que no te quede ninguna duda y quede todo bien claro.
salu2
Robokop puso su propio code,
y yo lo optimize, para que quede con menos lineas,
y sea mas eficiente.
el code me quedo así
Código:
Dim Fso As New FileSystemObject 'Se Declara el Objeto
Dim Carpetas As New Collection ' Se declara la nueva colección donde estara la Lista de Carpetas
Private Sub Reproducción(Path As String) 'La variable Path determina donde buscar, ej: "C:\","C:\Archivos de Programa\"
If Fso.GetFolder(Path).SubFolders.Count = 0 Then: Exit Sub 'Si no hay sub carpetas sale de la función
For Each i In Fso.GetFolder(Path).SubFolders 'A Cada Sub Carpeta del Path se le hace lo siguiente:
Carpetas.Add (i) ' Se agrega en la Colección llamada Carpetas
DoEvents 'Se pone esto, para que no se cualgue la PC
Reproducción (i) 'Esto es la Recursividad, que a cada sub carpeta se le hace este mismo Proceso
Next 'Proxima Subcarpeta
End Sub
Te puse comentarios,
para que no te quede ninguna duda y quede todo bien claro.
salu2
Me lei el post entero y me quede con el último, pero visto este... Tio, muchísimas gracias de verdad, grandiosa ayuda y encima con comentarios, que as, de nuevo gracias Una gran ayuda DrakoX. Un saludo compi.
dPix