mi duda es como puedo obtener los nombre de todas las carpetas que se encuentran dentro de C:\nombre_carpeta\ y almacenar estos nombres en una tabla de access.
De antemano gracias a quien me pueda ayudar.
14/09/2006, 20:03
| |||
| |||
| Obtener nombres de carpetas y guardarlos en BD hola a todos! mi duda es como puedo obtener los nombre de todas las carpetas que se encuentran dentro de C:\nombre_carpeta\ y almacenar estos nombres en una tabla de access. De antemano gracias a quien me pueda ayudar. |
|
15/09/2006, 07:17
| ||||
| ||||
| rositafresita, hola mira esto que esta sacado de la ayuda de vb6 ' Muestra los nombres en C:\ que representan directorios. MiRuta = "c:\" ' 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 Debug.Print MiNombre ' Muestra la entrada ACA PUEDES GUARDAR LA CARPETA End If ' solamente si representa un directorio. End If MiNombre = Dir ' Obtiene siguiente entrada. Loop |
|
15/09/2006, 14:30
| |||
| |||
| S, el ejemplo funciona si querés listar los directorios de una carpeta, pero si las demás carpetas tienen subdirectorios, tenés que comprobar uno por uno. En el Api guide hay un ejemplo que usa las api FindFirstFile y FindNextFile para buscar archivos. Lo podes bajar de acá: www.allapi.net Con ese ejemplo, podés indicar una ruta, y modificarle en el bucle del ejemplo, ..que solo agregue las entradas donde el atributo del path sea igual a FILE_ATTRIBUTE_DIRECTORY saludos -------------------------------
__________________ Recursos visual basic |
