Visual Basic

<br />
<br />
    Public Sub HellBurnIt()<br />
<br />
        Dim Index As Int32 = Nothing '**<br />
        Dim Recorder As New IMAPI2.MsftDiscRecorder2<br />
        Dim Stream As Stream = Nothing<br />
<br />
        ProgressBar3.Value = DriverSize<br />
        ProgressBar1.Value = DriverFreeSpace<br />
<br />
<br />
        'Here we dump all selected files under a temporary directory<br />
        '<br />
        Dim GetFolderPath As String = TransferFilesToTemp()<br />
<br />
        Index = DriverNo  ' x numbered drive on the system<br />
<br />
        'Create a DiscMaster2 object to connect to optical drives.<br />
<br />
        Dim G_DiscMaster As New IMAPI2.MsftDiscMaster2<br />
<br />
        'Create a DiscRecorder object for the specified burning device.<br />
<br />
        Dim UniqueID As Int32 = Nothing<br />
<br />
        UniqueID = g_DiscMaster.Item(Index)<br />
        Recorder.InitializeDiscRecorder(UniqueID)<br />
<br />
        'Create an image stream for a specified directory.<br />
<br />
        Dim FSI As New IMAPI2FS.MsftFileSystemImage<br />
        Dim Dir As IMAPI2FS.FsiDirectoryItem = FSI.Root<br />
<br />
        'Create the new disc format and set the recorder<br />
<br />
        Dim DataWriter As New IMAPI2.MsftDiscFormat2Data<br />
        DataWriter.Recorder = Recorder<br />
        DataWriter.ClientName = TextBox1.Text<br />
<br />
        FSI.FreeMediaBlocks = DataWriter.FreeSectorsOnMedia<br />
        FSI.FileSystemsToCreate = FsiFileSystemISO9660<br />
        FSI.VolumeName = TextBox1.Text<br />
<br />
        ' Add the directory and its contents to the file system <br />
        Dir.AddTree(GetFolderPath, False)<br />
<br />
        'Create an image from the file system<br />
        '<br />
        Dim Result As IMAPI2FS.FileSystemImageResult = FSI.CreateResultImage()<br />
<br />
        Stream = Result.ImageStream<br />
<br />
        DataWriter.Write(Stream) ' Here data writer writes the whole image <br />
<br />
    End Sub<br />
<br />
<br />

Dim filename As String
    Dim ofd As OpenFileDialog

    Private Sub btnUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpload.Click
        ofd = New OpenFileDialog()
        ofd.Filter = "All Files|*.*"
        ofd.ShowDialog()
        If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
            filename = ofd.FileName()
            txtFile.Text = filename
        End If
    End Sub

    Private Sub btnTransfer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTransfer.Click
        File.Copy(filename, "D:\TransferTest\")
    End Sub