¿Qué API o función de Access 97 debería utilizar para recorrer,
recursivamente, todos los ficheros y subcarpetas que existan apartir
de una ruta (carpeta o unidad) seleccionada?
Pretendo recuperar esa información para crear una entrada en una tabla
por cada fichero, almecenando el nombre del fichero y la ruta en la
que se encuentra ubicado.
JUAN M AFAN DE RIBERA
=====================
supongo que habrá diversas maneras de hacer eso. Una de ellas y la más
sencilla es utilizando la propiedad FileSearch del objeto Application. Por
ejemplo, esta rutina escribe en la ventana inmediato el nombre de todos los
archivos que se encuentren a partir de la ruta que se pasa como argumento,
incluyendo todas las subcarpetas.
Sub extraerArchivos(ruta As String)
Dim i As Long
With Application.FileSearch
.NewSearch
.LookIn = ruta
.SearchSubFolders = True
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Debug.Print .FoundFiles(i)
Next
End If
End With
End Sub
también puedes echar mano de la función Dir de VBA o de las APIs
FindFirstFile y FindNextFile (aunque la cosa se complicará más
naturalmente).
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)