Сканирование с большим уровнем вложенности

Function Scan_Sub_Folders (objFolderName, Date_Diff)
    Dim oFolder, objFile, subFolder 
    Set oFolder = FSO.GetFolder(objFolderName)
    '  Проверяет наличие новых папок
    if Len(oFolder) < 220 Then 
        For Each SubFolder in oFolder.SubFolders
            if subFolder.DateLastModified > Date_Diff then ' если файл свежее Date_Diff
                REM 'Создание списка для прикрепления к письму
                Set OTF = FSO.OpenTextFile(tmpList, 8, True)
                OTF.WriteLine ("Папка: " & FSO.GetFolder(oFolder) & "" & FSO.GetFileName(subFolder)) & ""
                OTF.Close
            End If
        Next
        'Проверка наличия новых файлов
        For Each objFile In oFolder.Files 
            if objFile.DateLastModified > Date_Diff then ' если файл свежее Date_Diff
                if not FSO.GetFileName(objFile)="list.txt" then 'Игнорирование временного списка найденного
                    'Создание списка для прикрепления к письму
                    Set OTF = FSO.OpenTextFile(tmpList, 8, True)
                    OTF.WriteLine ("Файл:  " & FSO.GetParentFolderName(objFile) & "" & FSO.GetFileName(objFile))
                    OTF.Close
                End if
            End If
        Next 
    ' Вложения так же сканируются на наличия новых файлов/папок
        For Each subFolder In oFolder.SubFolders
            Call Scan_Sub_Folders (subFolder.Path, Date_Diff)
        Next
    End if
End Function