Public Function GetAllFiles(strPfad As String)
    On Error GoTo Err_GetAllFiles
 
        Dim adoRs As New ADODB.Recordset
        Dim strSQL As String
 
        Dim fso As New FileSystemObject
        Dim oFolder As Folder
        Dim oSubFolder As Folder
        Dim oFile As File
 
 
            If Right(strPfad, 1) <> "\" Then
                strPfad = strPfad & "\"
            End If
 
 
                strSQL = "Select * From Dateiliste"
                adoRs.Open strSQL, CurrentProject.AccessConnection, _
                  adOpenDynamic, adLockOptimistic
 
 
                    Set fso = CreateObject("Scripting.FileSystemObject")
                    Set oFolder = fso.GetFolder(strPfad)
 
 
                        On Error Resume Next
                        If oFolder.SubFolders.Count > 0 Then
                            For Each oSubFolder In oFolder.SubFolders
 
                                    For Each oFile In oSubFolder.Files
 
                                        With adoRs
                                            .AddNew
                                            !DaLi_Pfad = oFolder.Path
                                            !DaLi_Datei = oFile.Name
                                            .Update
                                        End With
 
                                    lngFileCounter = lngFileCounter + 1
 
                                    Next
 
                                    Forms!FrmVerzeichnisAuslesen!txt_AktPfad = _
                                      oSubFolder.Path
                                    Forms!FrmVerzeichnisAuslesen!txt_FileCounte_
                                    r = lngFileCounter
 
                                GetAllFiles (oSubFolder.Path)
 
                            Next
 
                        End If
 
 
Exit_GetAllFiles:
    Exit Function
 
Err_GetAllFiles:
    MsgBox "Problem Nr. " & Err.Number & ", Grund: " & Err.Description & "." & _
      "<20061106-1524>.", "Problem"
    Resume Exit_GetAllFiles
 
End Function