I dont know of any way to do it automated. It looks to me like there will be alot of data entry. Maybe putting all needed files on a 'server' computer would help. That way they are all in the same place, and then it would be a matter of organizing and inputing into the database.
I am sorry I couldnt be of more help. There may be another solution, but at this time I do not know it. Someone else may post with something.
The following code will get all file and folder names from drive C: and store the names in an array.
Paste the following sample code text into a new code module and save it as GetDir Module:
Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, lpExitCode As Long) As Long
Public Function GetDir(vArray As Variant)
Dim hWnd As Long
Dim hProc As Long
Dim hExit As Long
Dim hCode As Long
hWnd = Shell(Environ$("COMSPEC") & " /C dir /b C:\ > C:\tempdir.txt", vbMinimizedFocus)
hProc = OpenProcess(&H400, False, hWnd)
hCode = GetExitCodeProcess(hProc, hExit)
Loop Until hExit = 0
Open "C:\tempdir.txt" For Input As #1
ReDim vTemp(0) As String
While Not EOF(1)
ReDim Preserve vTemp(UBound(vTemp) + 1)
Line Input #1, vTemp(UBound(vTemp))
vArray = vTemp
Dim DirArray As Variant, CT As Integer
For CT = 0 To UBound(DirArray)
In the Debug Window, type: GetTest
...and press Enter. The function should print out the list of names.