Question How to burn data cd ?

[rdamila]

hi;
i am tried to create burn cd app in vb.net.I try to use IMAPI2 dill but it is very difficult and i cant fixed.This is my code.it's dont work.plz help me.
thanx

code....

Dim objDiscMaster = New IMAPI2.MsftDiscMaster2
Dim objRecorder = New IMAPI2.MsftDiscRecorder2
Dim strDevice = objDiscMaster.Item(0)
objRecorder.InitializeDiscRecorder(strDevice)
ComboBox1.Items.Add(objRecorder.VolumePathNames.GetValue(0))
'objRecorder.EjectMedia()
'objRecorder.CloseTray()
Dim dataWriter = New IMAPI2.MsftDiscFormat2Data
dataWriter.Recorder = objRecorder
dataWriter.ClientName = "IMAPIv2TEST"

Dim FSI = New IMAPI2FS.MsftFileSystemImage
Dim Dir = FSI.Root
Dim path As String = "C:\BurnData TEMP"
FSI.ChooseImageDefaults(objRecorder)

Dir.AddTree(path, False)

Dim IStream As IMAPI2FS.FsiStream = FSI.CreateResultImage().ImageStream

dataWriter.Write(IStream)