Kofax DM API - Manual (Page 118)

98 C HAPTER 3
PCDPutDoc
Dim VersionID As Long
Dim TotalFileSize As Long
Dim TotalBytesWritten As Long
Dim Buffread As Long
'Set bdata ridiculously low for test purposes
'to increase the likelihood of corruption.
Dim bdata(16) As Byte
Dim objDoc As PCDDocObject
Set objDoc = New PCDDocObject
objDoc.SetProperty "%TARGET_LIBRARY", Library
objDoc.SetDST DST
'Set the Profile Form for this document.
objDoc.SetObjectType “DEF_PROF”
objDoc.SetProperty "DOCNAME", "Upload Test Doc"
objDoc.SetProperty "APP_ID", "MS WORD"
objDoc.SetProperty "AUTHOR_ID", "SMITH_J"
objDoc.SetProperty "TYPIST_ID", "SMITH_J"
'Set the Document Type, Letter, Memo, etc.
objDoc.SetProperty "TYPE_ID", "REPORT"
objDoc.SetProperty "ABSTRACT", _
"Imported via Custom Application"
objDoc.Create
If objDoc.ErrNumber <> 0 Then
Debug.Print objDoc.ErrNumber, _
objDoc.ErrNumber
Exit Sub
Else
Debug.Print "Created Document Profile!"
End If
DocNumber = objDoc.GetReturnProperty( _
"%OBJECT_IDENTIFIER")
VersionID = objDoc.GetReturnProperty( _
"%VERSION_ID")
Debug.Print "Doc Number: ", DocNumber, _
", Version ID: ", VersionID
Dim objPutDoc As PCDPutDoc
Set objPutDoc = CreateObject( _
"PCDClient.PCDPutDoc")
objPutDoc.SetDST DST