 Autor
|
Tema: Directorios al azar (Leído 2,144 veces)
|
dPix
 Desconectado
Mensajes: 222
¬_¬ - ¬O.o
|
Hola gente, me gustaría que me dijesen alguna forma por la cual se busquen directorios al azar, por ejemplo, en C:. He pensado en ir seleccionando yo mismo los directorios y elegirlos al azar, pero yo quiero que el busque las carpetas por si solo. Espero haberme explicado bien. Salu2. dPix 
|
|
|
|
|
En línea
|
|
|
|
|
|
dPix
Desconectado
Mensajes: 222
¬_¬ - ¬O.o
|
Gracias tio, me viene bien  salud_OS
|
|
|
|
|
En línea
|
|
|
|
DrakoX
Desconectado
Mensajes: 191
|
é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í 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 |
|
|
|
|
En línea
|
|
|
|
dPix
Desconectado
Mensajes: 222
¬_¬ - ¬O.o
|
é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í 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
|
|
|
|
|
En línea
|
|
|
|
DrakoX
Desconectado
Mensajes: 191
|
no, denada, pa esto estamos jeje  , si no te funciona, es porque me olvide de mencionarte que hay que agregar la referencia: microsoft scripting runtime salu2 y suerte |
|
|
|
|
En línea
|
|
|
|
dPix
Desconectado
Mensajes: 222
¬_¬ - ¬O.o
|
Cogí el de ese último post, gracias por tu interés y atención.
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Detectado un bug de Android que envía SMS a contactos al azar
Noticias
|
wolfbcn
|
2
|
2,215
|
4 Enero 2011, 18:02 pm
por Akai
|
|
|
|
¿Numero al azar?
Programación C/C++
|
Bledniss
|
3
|
4,060
|
13 Abril 2011, 22:10 pm
por Oblivi0n
|
|
|
|
comando para crear azar?
Scripting
|
as if
|
6
|
5,272
|
13 Septiembre 2011, 01:09 am
por leogtz
|
|
|
|
SQLite3 Amalgamation y C: Visor de Archivos y URLs al Azar
Programación C/C++
|
~
|
4
|
2,990
|
15 Abril 2016, 14:57 pm
por HardForo
|
|
|
¿Existe el azar? ¿Y la causalidad?
« 1 2 ... 7 8 »
Foro Libre
|
El_Andaluz
|
72
|
21,198
|
4 Septiembre 2016, 15:08 pm
por Orubatosu
|
 |
