Kofax DM API - Manual (Page 42)

22 C HAPTER 1
Document Objects
If (rec.ErrNumber <> 0) Then
MsgBox "Fetch Doc Failure on Execute: " & _
rec.ErrNumber & " " & rec.ErrDescription, _
, "Fetch Doc"
Else
lim = rec.GetRowsFound
i = 1
While i <= lim
rec.NextRow
If (rec.ErrNumber <> 0) Then
i = lim + 1
MsgBox "Fetch Doc Failure on Execute: " _
& rec.ErrNumber & " " & _
rec.ErrDescription, , "Fetch Doc"
End If
If (i = 1) Then
Set gd = rec.GetPropertyValue("%CONTENT")
On Error GoTo saveFailed
FileName = "c:\temp\" & _
Trim(docnumber) & "_" & _
Trim(versionid) & ".doc"
Open FileName For Binary Access Write _
As #1
bdata() = ""
bdata() = gd.Read(1024)
While (gd.BytesRead > 0)
Put #1, , bdata()
bdata() = ""
bdata() = gd.Read(1024)
Wend
Close #1
GoTo saveDone
saveFailed:
MsgBox "Fetch Doc Failure File Open: " _
& "Fetch Doc"
savecancelled:
On Error Resume Next
saveDone:
End If
i = i + 1
Wend