AddFile(FileName As String,FileTypeID As Long)

AddFile(FileName As String,FileTypeID As Long) ( Function )

Добавить файл к документу в текущий каталог

Синтаксис:

objectvariable.AddFile( FileName, [FileTypeID] )

objectvariable - IDocFiles

FileName - наименование файла

FileTypeID - идентификатор типа файла, если параметр не указан или равен -1, то система сама подберет тип на основе вида документа

Пример на VB Script:

Sub Test()
    
    Dim Archive
    Dim Files
    
    Set Archive = TCSApp.Archive
    If Archive.RunModuleForSelect("Выберите документ", False) Then
        Set Files = Archive.Properties("FILES").AsIDispatch
        Call Files.AddFile( "d:\temp\test.xls", -1 )
        Set Files = Nothing
    End If
    Set Archive = Nothing
End Sub