elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  [MiniRETO] obtener de la forma mas rapida archivos directorios y subdirectorios
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [MiniRETO] obtener de la forma mas rapida archivos directorios y subdirectorios  (Leído 3,776 veces)
_katze_

Desconectado Desconectado

Mensajes: 140



Ver Perfil WWW
[MiniRETO] obtener de la forma mas rapida archivos directorios y subdirectorios
« en: 14 Febrero 2011, 22:58 pm »

bien como dice el post es buscar la funcion mas rapida y valida de encontrar estos datos siendo como base de la funcion y que podria variar seria esta!
Código:
Function ListDir(ByVal StrPath as string)as string
podria ser cambiada por otros parametros o agregar parametros opcionales,,,,a medida que se postea los codes se iran probando yo probare en mi makina para que no varie en nada y se pondra la mejor y se podra hacer un post con esto. gracias y participen...esto agrande este subforo.

hay va una altenativa mas o menos distinta a la clasica noc fue al boleo. asi en 5 milisegundos. y unos 381 milisegundos cargando en combo o en debug
Código
  1. Function ListDir(ByVal StrPath As String) As ArrayList
  2.        Dim dir As DirectoryInfo = New DirectoryInfo(StrPath)
  3.        Dim ta As ArrayList = New ArrayList()
  4.        For Each subdir As DirectoryInfo In dir.GetDirectories
  5.            ta.Add(subdir.FullName)
  6.        Next
  7.        Return ta
  8.    End Function


« Última modificación: 15 Febrero 2011, 01:04 am por _katze_ » En línea

_katze_

Desconectado Desconectado

Mensajes: 140



Ver Perfil WWW
Re: [MiniRETO] obtener de la forma mas rapida archivos directorios y subdirectorios
« Respuesta #1 en: 16 Febrero 2011, 00:50 am »

nadie aporta.....solo piden ayuda..... :huh:


En línea

Edu


Desconectado Desconectado

Mensajes: 1.082


Ex XXX-ZERO-XXX


Ver Perfil
Re: [MiniRETO] obtener de la forma mas rapida archivos directorios y subdirectorios
« Respuesta #2 en: 16 Febrero 2011, 16:07 pm »

Ni idea si anda porq es la primera vez q hago un reto y no supe como probarlo sin perder tanto tiempo xD
Solo lo traduci a C# para no dejarte solo xD

Código
  1. List<string> ListDir(string StrPath)
  2.        {
  3.            DirectoryInfo dir = new DirectoryInfo(StrPath);
  4.            List<string> list = new List<string>();
  5.            foreach (DirectoryInfo subdir in dir.GetDirectories())
  6.            {
  7.                list.Add(subdir.FullName);
  8.  
  9.            }
  10.            return list;
  11.        }
  12.  
En línea

_katze_

Desconectado Desconectado

Mensajes: 140



Ver Perfil WWW
Re: [MiniRETO] obtener de la forma mas rapida archivos directorios y subdirectorios
« Respuesta #3 en: 16 Febrero 2011, 18:44 pm »

buenisimo man....:D....para probar haces esto.....

dim stopwatch as new stopwatch

stopwatch.start()

'aki pones la  funcion...

stopwatch.stop()

debug.print(stopwatch.miliseconds())
En línea

Edu


Desconectado Desconectado

Mensajes: 1.082


Ex XXX-ZERO-XXX


Ver Perfil
Re: [MiniRETO] obtener de la forma mas rapida archivos directorios y subdirectorios
« Respuesta #4 en: 16 Febrero 2011, 18:57 pm »

Ja grcaias, aunque el debug.print no me aparece, me faltara agregar una referencia.. y no se cual es
En línea

_katze_

Desconectado Desconectado

Mensajes: 140



Ver Perfil WWW
Re: [MiniRETO] obtener de la forma mas rapida archivos directorios y subdirectorios
« Respuesta #5 en: 26 Febrero 2011, 01:07 am »

Código:
Function ListDir(ByVal StrPath As String) As ArrayList
        Dim dir As DirectoryInfo = New DirectoryInfo(StrPath)
        Dim ta As ArrayList = New ArrayList()
        For Each subdir As DirectoryInfo In dir.GetDirectories
            ta.Add(subdir.FullName)
        Next
        For Each Filef As IO.FileInfo In dir.GetFiles
            ta.Add(Filef.Name)
        Next
        Return ta
    End Function
una mas
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines