Public Sub ShowFileListWithSubdirectories_JustList(sDir As String, sSearchString As String)
Dim nDirs As Long
Dim nFiles As Long
Dim lSize As Currency
On Error GoTo Err_Proc
If IsNull(sDir) Or IsNull(sSearchString) Then
MsgBox "Directory and file type are both required", vbOKOnly + vbInformation
Exit Sub
End If
' Open recordset which will be used to add rows
Set db = CurrentDb()
Set qdDAO = db.QueryDefs!qCaptureEndorsementFileNames
Set rsDAO = qdDAO.OpenRecordset
lSize = FindFile_JustList(sDir, sSearchString, nDirs, nFiles)
'MousePointer = vbDefault
MsgBox Str(nFiles) & " files found in" & Str(nDirs) & _
" directories", vbInformation
MsgBox "Total Size = " & lSize & " bytes"
Exit_Proc:
Set rsDAO = Nothing
Exit Sub
Err_Proc:
MsgBox Err.Number & "--" & Err.Description, vbCritical
GoTo Exit_Proc
End Sub