AddTemplate(FileName As String,TemplateID As Long,Flags As Long) ( Function )

Добавить файл из шаблона

Синтаксис:

objectvariable.AddTemplate( FileName, TemplateID, Flags )

objectvariable - IFolders2

FileName - наименование нового файла (если не указано, то возьмется из шаблона файла)

TemplateID - идентификатор шаблона файла

Flags - значение из tagEnumFileOptions


Пример на VB Script:
Sub Test()
    Dim Versions
    Dim FS
    Dim FT
    Dim FTT
    Dim I
    If TCSApp.Archive.RunModuleForSelect("Выберите документ", False) > 0 Then
        Set Versions = TCSApp.Archive.Properties("VERSIONS").AsIDispatch
        If Versions.RunModuleForSelect("Выберите версию документа", False) > 0 Then
            Set FS = Versions.Properties("FILES").Value
            Set FT = TCSApp.FileTypes
            If FT.RunModuleForSelect("Выберите тип файла", False) > 0 Then
                Set FTT = FT.Properties("TEMPLATES").Value
                If FTT.RunModuleForSelect("Выберите шаблон файла",False)>0 Then
                   Call FS.AddTemplate("NewTest.doc",FTT.Properties("ID").AsInteger,3)
                   I = FS.ShowModal("Изменный файловый состав")
                End If
            End If
        End If
        Set FTT = Nothing
        Set FT = Nothing
        Set FS = Nothing
        Set Versions = Nothing
    End If
End Sub