Исходный код

Call CreateFilesCol(ThisObject)

'======================================================================
'Создать динамическую коллекцию и заполнить ее файлами указанного объекта.
'=====================================================================

Sub CreateFilesCol(Obj)
    ' Проверим количество файлов в объекте
    If Obj.Files.Count = 0 Then
        MsgBox "Указанный объект не имеет файлового состава."
        Exit Sub
    End If

    ' Создадим коллекцию файлов, состоящию из файлов выбранного объекта
    Set fCol = ThisApplication.CreateCollection(tdmFiles)
    For Each f In  Obj.Files
        fCol.Add f
    Next
    MsgBox "Количество файлов у выбранного объекта равно: " & fCol.Count
End Sub