SaveIFD example for Visual Basic

' This example will add 100 pages to a file faster by continuously using the IFD of the last page
dim Page as integer
' Save page 1, to make sure the file exists
LEAD1.Save "test.tif", FILE_TIF, 0, 0, SAVE_APPEND
For Page = 2 To 100
   ' get the IFD of the last page
   LEAD1.GetFileInfo "test.tif", 100000, 0
   LEAD1.SaveIFD = LEAD1.InfoIFD
   LEAD1.Save "test.tif", FILE_TIF, 0, 0, SAVE_APPEND
Next
' reset the SaveIFD property so the other Save calls will work properly
LEAD1.SaveIFD = 0