Private Sub subListFolders(ByVal strFolders As String, intCounter As Integer)

    Dim dbs As Database

    Dim fso As New FileSystemObject

    Dim fldFolders As Folder

    Dim fldr As Folder

    Dim subfldr As Folder

    Dim sfldFolders As String

    Dim strSQL As String



    Set fldFolders = fso.GetFolder(TrailingSlash(strFolders))

    Set dbs = CurrentDb



    strSQL = "INSERT INTO tblFileList (FilePath, FileName, FolderSize) VALUES (" & Chr(34) & fldFolders.Path & Chr(34) & ", " & Chr(34) & fldFolders.Name & Chr(34) & ", '" & fldFolders.Size & "')"

    dbs.Execute strSQL



    For Each fldr In fldFolders.SubFolders

        intCounter = intCounter + 1

        strSQL = "INSERT INTO tblFileList (FilePath, FileName, FolderSize) VALUES (" & Chr(34) & fldr.Path & Chr(34) & ", " & Chr(34) & fldr.Name & Chr(34) & ", '" & fldr.Size & "')"

        dbs.Execute strSQL

        For Each subfldr In fldr.SubFolders

            intCounter = intCounter + 1

            sfldFolders = subfldr.Path

            Call subListFolders(sfldFolders, intCounter)

            Me.sfrmFolderList.Requery

        Next

        Me.txtListed = intCounter

        Me.txtListed.Requery

    Next



    Set fldFolders = Nothing

    Set fldr = Nothing

    Set subfldr = Nothing

    Set dbs = Nothing



End Sub