Ayuda Con mini sistemita ¬¬!

[andystefano2]

Necesito si alguien me

obtener listado de nombres de las carpetas de C:\Documents and Settings
para despues manipularlo pero no se lo suficiente de vb si alguien me hecha una manito se lo agardeceria mucho. Y cuente conmigo en lenguajes web.

Saludos.

[Insomnia]

Hola

Creía que con la función Dir se podía hacer algo de eso, he mirado en la ayuda del VB6 y pone un ejemplo justo de lo que estabas buscando lo he cambiado para que muestre el resultado en un control list

Código vb:

' Muestra los nombres en C:\ que representan directorios.
MiRuta = "C:\Documents and Settings\"   ' Establece la ruta.
MiNombre = Dir(MiRuta, vbDirectory)   ' Recupera la primera entrada.
Do While MiNombre <> ""   ' Inicia el bucle.
   ' Ignora el directorio actual y el que lo abarca.
   If MiNombre <> "." And MiNombre <> ".." Then
      ' Realiza una comparación a nivel de bit para asegurarse de que MiNombre es un directorio.
      If (GetAttr(MiRuta & MiNombre) And vbDirectory) = vbDirectory Then
         List1.AddItem MiNombre   ' Muestra la entrada
      End If   ' solamente si representa un directorio.
   End If
   MiNombre = Dir   ' Obtiene siguiente entrada.
Loop
 

* El código lo he copiado de la ayuda del VB6

--Saludos--