my head is burning when i attempt to use NeroFreeStyleTracks and also guide me how to manage multisession. when i tried to burn next time the same CD , the previous contents were lost & looks like a newly burned CD with only new contents.
Set Folder = New NeroFolder
Dim drives As INeroDrives
Set drives = nero.GetDrives(NERO_MEDIA_CDR)
Set drive = drives(AvailableDevices.ListIndex)
Set isoTrack = New NeroISOTrack
Set FreeTrack = New NeroFreestyleTrack
Dim FreeTracks As New NeroFreestyleTracks
Set NFSDC = New NeroFileSystemDescContainer
NFSDC.BurnOptions = NERO_BURN_OPTION_USE_JOLIET
FreeTrack.Title = "DataCD"
FreeTrack.Artist = "NewArtist"
FreeTrack.TrackType = NERO_FREESTYLE_TRACK_MODE1
(My error comes here : Class does not support Automation or does not support expected interface ):a
isoTrack.Name = "NewTest"
isoTrack.Copyright = "Elgi"
isoTrack.RootFolder = Folder
Dim file As New NeroFile
file.Name = NameFromPath(edtFileName.Text)
file.SourceFilePath = edtFileName.Text
drive.BurnFreestyleCD NFSDC, "SK", "MyTitle", 0, isoTrack, FTs, Nothing, NERO_BURN_FLAG_SIMULATE + NERO_BURN_FLAG_WRITE + NERO_BURN_FLAG_CLOSE_SESSION, 8, NERO_MEDIA_CD