ShowFileConversionDlg Example for Visual Basic

Dim RasterFileDlg As New LEADRasterDlgFile
Dim RasterIO As New LEADRasterIO
Dim nRet As Integer

Private Sub FileConversion_Click()
   RasterFileDlg.OverWriteFlags = FILECONVERSION_OVERWRITE_SKIP
   RasterFileDlg.FileFormatsCount = 0
   RasterFileDlg.DestinationPath = "c:\output"
   RasterFileDlg.EnableLogReport = True
   RasterFileDlg.EnableRemoveSourceFile = False
   RasterFileDlg.EnableShowFullPath = True
   RasterFileDlg.UseOriginalFolder = True
   RasterFileDlg.SourceFileList = "C:\images\Image1.jpg|C:\images\Image2.jpg|C:\images\Image3.jpg|C:\images\Image4.jpg|"
   RasterFileDlg.UIFlags = FILECONVERSION_SHOW_PREVIEW Or _
                           FILECONVERSION_SHOW_LOADOPTIONS Or _
                           FILECONVERSION_SHOW_FILEINFO Or _
                           FILECONVERSION_SHOW_PREVIEW_PAGES Or _
                           FILECONVERSION_SHOW_RESIZE Or _
                           FILECONVERSION_SHOW_ROTATE Or _
                           FILECONVERSION_SHOW_NAMINGTEMPLATE Or _
                           FILECONVERSION_SHOW_OVERWRITE Or _
                           FILECONVERSION_SHOW_OVERWRITE_ALL Or _
                           FILECONVERSION_SHOW_ADD Or _
                           FILECONVERSION_SHOW_ADDFOLDER Or _
                           FILECONVERSION_SHOW_REMOVE Or _
                           FILECONVERSION_SHOW_SELECTALL Or _
                           FILECONVERSION_SHOW_DELETEORIGINAL

   RasterFileDlg.ShowFileConversionDlg (hWnd)