Imprimir Página - Directorios al azar

Título: Directorios al azar
Publicado por: dPix en 19 Diciembre 2006, 15:34 pm

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 :-*

Título: Re: Directorios al azar
Publicado por: CeLaYa en 19 Diciembre 2006, 16:18 pm

hace tiempo DrakoX publico un código para sacar directorios, tal vez te sirva

http://foro.elhacker.net/index.php/topic,149093.0.html

Título: Re: Directorios al azar
Publicado por: dPix en 19 Diciembre 2006, 17:28 pm

Cita de: CeLaYa en 19 Diciembre 2006, 16:18 pm

hace tiempo DrakoX publico un código para sacar directorios, tal vez te sirva

http://foro.elhacker.net/index.php/topic,149093.0.html

Gracias tio, me viene bien ;D

salud_OS

Título: Re: Directorios al azar
Publicado por: DrakoX en 19 Diciembre 2006, 17:32 pm

é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í

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

Título: Re: Directorios al azar
Publicado por: dPix en 20 Diciembre 2006, 00:09 am

Cita de: DrakoX en 19 Diciembre 2006, 17:32 pm

é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í

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 :D Una gran ayuda DrakoX. Un saludo compi.

dPix ;D

Título: Re: Directorios al azar
Publicado por: DrakoX en 20 Diciembre 2006, 14:56 pm

no, denada,
pa esto estamos jeje :P,
si no te funciona,
es porque me olvide de mencionarte que hay que agregar la referencia: microsoft scripting runtime

salu2 y suerte

Título: Re: Directorios al azar
Publicado por: dPix en 21 Diciembre 2006, 16:58 pm

;D Cogí el de ese último post, gracias por tu interés y atención.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: dPix en 19 Diciembre 2006, 15:34 pm