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 FreeTracks.Add FreeTrack
(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 Folder.Files.Add file 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 GoTo quit