Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.MediaWriter
Public Sub CreateISOExample()
   Dim writer As MediaWriter = New MediaWriter()
   Dim drives As List(Of MediaWriterDrive) = writer.Drives
   Try
      Dim drive As MediaWriterDrive = drives(1)
      Dim disc As MediaWriterDisc = drive.CreateDisc()
      disc.VolumeName = "TEST DISC"
      disc.SourcePathName = Path.Combine(LEAD_VARS.ImagesDir, "InputFiles")
      disc.OutputPathName = Path.Combine(LEAD_VARS.ImagesDir, "TESTDISC.iso")
      drive.AutoEject = True
      AddHandler drive.OnProgress, AddressOf ISOProgress
      ' CreateISO method starts
      drive.CreateISO(disc)
      ' wait loop for demonstration purposes
      Do While drive.State <> MediaWriterState.StateIdle
         System.Windows.Forms.Application.DoEvents()
         System.Threading.Thread.Sleep(10)
      Loop
      RemoveHandler drive.OnProgress, AddressOf ISOProgress
   Catch ex As Exception
      MessageBox.Show("Test Failed: " & ex.Message)
   End Try
End Sub
Public Sub ISOProgress(ByVal sender As Object, ByVal evt As MediaWriterProgressEventArgs)
   System.Diagnostics.Debug.WriteLine(evt.ToString())
End Sub
Public NotInheritable Class LEAD_VARS
Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class
             
   
     
            using Leadtools;
using Leadtools.Codecs;
using Leadtools.MediaWriter;
public void CreateISOExample()
{
   MediaWriter writer = new MediaWriter();
   List<MediaWriterDrive> drives = writer.Drives;
   try
   {
      MediaWriterDrive drive = drives[1];
      MediaWriterDisc disc = drive.CreateDisc();
      disc.VolumeName = "TEST DISC";
      disc.SourcePathName = Path.Combine(LEAD_VARS.ImagesDir, "InputFiles");
      disc.OutputPathName = Path.Combine(LEAD_VARS.ImagesDir, "TESTDISC.iso");
      drive.AutoEject = true;
      drive.OnProgress += ISOProgress;
      // CreateISO method starts
      drive.CreateISO(disc);
      // wait loop for demonstration purposes
      while (drive.State != MediaWriterState.StateIdle)
      {
         System.Windows.Forms.Application.DoEvents();
         System.Threading.Thread.Sleep(10);
      }
      drive.OnProgress -= ISOProgress;
   }
   catch (Exception ex)
   {
      MessageBox.Show("Test Failed: " + ex.Message);
   }
}
public void ISOProgress(Object sender, EventArgs evt)
{
   System.Diagnostics.Debug.WriteLine(evt.ToString());
}
static class LEAD_VARS
{
public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}