Описание
Создает динамическую объектную коллекцию указанного типа.
Опеделение
| Visual Basic |
|---|
Public Function CreateCollection( _ ByVal CollectionType As Variant _ ) As Variant |
Параметры
- CollectionType
- Тип создаваемой коллекции.
Тип возврата
Ссылка на коллекцию (объектная переменная) заданного типа.
Заметки
Метод создает динамическую коллекцию объектов, файлов, групп пользователей или пользователей, в зависимости от значения константы TDMSCollectionType Перечисление.
Пример
| VBScript (VBScript) |  Скопировать код |
|---|---|
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 | |