importar directorios de un disco

hola, Alejandro !

... es posible importar a una planilla excel el contenido de un disco duro [...]

ve si te sirve algo de lo comentado en las siguientes conversaciones: -> http://tinyurl.com/flnwz

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Me parece que es posible pero algo laborioso :)

Saludos

Hola Alejandro, Busco como lo hago y lo pruebas aver que tal, es
una solucion que me dieron en el grupo de aplicaciones y la
respuesta de José Gallardo:
Mi pregunta:

Como podria listar, para guardar en un archivo Word o Excel,
todos
los archivos con su ruta del HDD, me explico:

Tengo varios HDD Extraibles con imagenes y Datos y quisiera tener
todos los nombres de los archivos con sus rutas en un archivo
Word
o Excel para que cuando tenga que buscar una imagen le digo a
word_excel que ma la busque y al localizarla saber en que carpeta
esta, luego conecto el HDD correspondiente y listo, espero haberme
explicado bien.

La Respuesta:

A ver si te sirve esto: Inicio > Ejecutar y escribe "cmd" sin comillas.
En la nueva ventana escribe:

dir *.* /a /s > c:\discoduro.txt

En C: te aparecerá un archivo llamado "discoduro.txt" con el contenido.


Otra pregunta:

Ahora el tema sera si yo tengo discos extraibles, la c la tendria
que cambiar por la letra del HDD en cuention no.

Otra respuesta:

Para, por ejemplo un disco que esté en J, usa esto:

dir j:\*.* /s /a > "c:\documents and
settings\usuario\escritorio\disco.txt"

sustituyendo "usuario" por el nombre de la cuenta de usuario en el que
hayas iniciado sesión. En el escritorio te aparecerá el archivo
"disco.txt" con el contenido del disco de J. Puedes cambiar el nombre al
archivo disco.txt y ponerle el que quieras.


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Con todo esto que me va de fabula para mi menesteres, lo copio
del archivo de texto y lo pego en un excel, y cuando quiero buscar
algo CONTROL + B pongo el nombre del archivo ACEPTO y me lo
busca con la ruta. Ahora mismo voy a cambiar la extension del
.txt por .xls a ver que pasa, seguro que me lo copia y me ahorro
un paso.


DESPUES DE TANTO ROLLO ESPERO QUE TE HAIGA SERVIDO.

SALUDOS

saludos

Example 1: Creating A List Of Files In A Worksheet.

en esta direccion

http://www.jkp-ads.com/Articles/ExcelNames08.htm

expplican como obtener, dentro de excel la lista de archivos de in
directorio

Gabriel Raigosa
Medellín - Colombia

news://msnews.microsoft.com/
news://msnews.microsoft.com/microso...c.es.excel

"Alejandro" escribió en el mensaje
news:
| Hola amigos:
|
| Necesito saber si es posible importar a una planilla excel el contenido de
| un disco duro, es decir, el listado de directorios y archivos que contiene
un
| disco.
|
| Con el fin de trabajar con ese listado y poder por ejemplo escoger el
| archivo excel especifico que se necesita abrir (el que tiene cierto nombre
y
| el ultimo en haber sido modificado).
|
| saludos y gracias,
|
| Alejandro

Hoja:
yo utilizo un form que me muestra en un listbox los archivos que
coinciden con un criterio de busqueda y me va de "pelos" [para lo que
necesito]
de tal manera que si deseo que me muestre todos los archivos que
coincidan con la palabra "grafico" me los enlista,de ahi selecciono uno
y lo abro.

es una solucion muy personalizada,pero se puede adptar y mejorar :-)
el codigo se ejecuta desde un CommandButton.

Private Sub CommandButton1_Click()
If TextBox1 = "" Then
MsgBox "Debe ingresar un criterio de busqueda"
ElseIf TextBox2 = "" Then
MsgBox "Debe ingresar una ruta para la busqueda"
Else
Dim FileS As FileSearch
Dim Archivo As Variant

Set FileS = Application.FileSearch
With FileS
.NewSearch
.Filename = TextBox1 '& ".xls" 'archivo que contiene los sig
caracteres
If .Filename = "" Then Exit Sub 'para evitar el error, sale del
sub;debe
.LookIn = TextBox2 ' la ruta
If .LookIn = "" Then Exit Sub 'elegir el boton aceptar,no el de
cancelar
.SearchSubFolders = True
.Execute
End With

For Each Archivo In Application.FileSearch.FoundFiles
ListBox1.AddItem Archivo 'agrega los items encontrados mediante
la busqueda,al listbox1
Next Archivo

Label3.Visible = True
Label3 = "Encontrados: " & ListBox1.ListCount 'nArchivos
End If
End Sub

obviamente es necesario tener los controles que se mencionan en el
codigo anterior

para abrir utilizo el evento 2click del listbox,[algo como esto]

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
R = MsgBox("Solo puede abrir los archivos de excel", vbYesNo +
vbInformation, "AVISO")
If R = vbYes Then
Workbooks.Open ListBox1 'abre el archivo seleccionado
End If
End Sub

bueno es solo una idea :-)

saludos de ST