SkipFile example for Visual Basic
Private Sub LEADThumb1_ThumbnailEvent(ByVal Bitmap As Long, ByVal pszFilename As String, ByVal nStatusCode As Integer, ByVal nPercent As Integer)
Dim out$
If (nStatusCode = 0) Then 'successful thumbnail generation
'save thumbnails in a multipage TIFF file
LEADRaster1.Bitmap = Bitmap
LEADRasterIO1.Save LEADRaster1, "d:\temp\thumbs.tif", FILE_TIF, 24, 0, SAVE_APPEND
out$ = pszFilename & Chr(13)
out$ = out$ & "Format: " & CStr(LEADThumb1.InfoFormat) & Chr(13)
out$ = out$ & "Compression: " & CStr(LEADThumb1.InfoCompression) & Chr(13)
out$ = out$ & "Bits: " & CStr(LEADThumb1.InfoBits) & Chr(13)
out$ = out$ & "Width: " & CStr(LEADThumb1.InfoWidth) & Chr(13)
out$ = out$ & "Height: " & CStr(LEADThumb1.InfoHeight) & Chr(13)
out$ = out$ & "Page: " & CStr(LEADThumb1.InfoPage) & Chr(13)
out$ = out$ & "TotalPages: " & CStr(LEADThumb1.InfoTotalPages) & Chr(13)
out$ = out$ & "SizeDisk: " & CStr(LEADThumb1.InfoSizeDisk) & Chr(13)
out$ = out$ & "SizeMem: " & CStr(LEADThumb1.InfoSizeMem) & Chr(13)
out$ = out$ & "XRes: " & CStr(LEADThumb1.InfoXRes) & Chr(13)
out$ = out$ & "YRes: " & CStr(LEADThumb1.InfoYRes) & Chr(13)
MsgBox out$
ElseIf (nStatusCode = BROWSE_PRELOAD) Then
'check the extension, if it is ".DOC", then skip
If (UCase(Right$(pszFilename, 4)) = ".DOC") Then
LEADThumb1.SkipFile = True
MsgBox "skipping - " & pszFilename
End If
End If
LEADThumb1.ContinueBrowse = True 'continue the browse operation
End Sub