I have a similar problem, I can use filesearch to get the listing of files
and subdirectories. What Ai want to do first is read the other file
attributes into a table and later, based on file attributes, opent the files
and search for keywords or other information. The end result will be to
create an index of files on the drive with contacts etc.

Sure, you can use the following code of mine....

Sub dirTest()

  Dim dlist      As New Collection
  Dim startDir   As String
  Dim i As Integer

  startDir = "C:\access\"
  Call FillDir(startDir, dlist)

  MsgBox "there are " & dlist.Count & " in the dir"

  ' lets printout the stuff into debug window for a test

  For i = 1 To dlist.Count
     Debug.Print dlist(i)
  Next i

End Sub

Sub FillDir(startDir As String, dlist As Collection)

  ' build up a list of files, and then
  ' add add to this list, any additinal
  ' folders

  Dim strTemp       As String
  Dim colFolders    As New Collection
  Dim vFolderName   As Variant

  strTemp = Dir(startDir)

  Do While strTemp <> ""
     dlist.Add startDir & strTemp
     strTemp = Dir
  Loop

  ' now build a list of additional folders
  strTemp = Dir(startDir & "*.", vbDirectory)

  Do While strTemp <> ""
     If (strTemp <> ".") And (strTemp <> "..") Then
        colFolders.Add strTemp
     End If
     strTemp = Dir
  Loop

  ' now process each folder (recursion)
  For Each vFolderName In colFolders
     Call FillDir(startDir & vFolderName & "\", dlist)
  Next vFolderName

End Sub

You can of course change the first dir command to only return *.dbf fields.

And, if you need to put the data into a reocrdset, you could go somthing
like:

  dim rst            as dao.recordset
....
...
set rst = currentdb.OpenReocrdSet("tblDir")

For i = 1 To dlist.Count
     rst.Add
     rst!MyFileName = dlist(i)
    rst.Update
Next i

Anyway, the above code shell should get you something to work with....