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
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 Return ta End Function