How to use NeroFreestyleTracks? or how to burn DataCD?

vbimport

#1

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

#2

I presume you are saying the error occurs at FreeTracks.Add FreeTrack. If this is so, how did you declare a FreeTrack variable?

Which NeroCOM version are you using?

I am not a VB expert but its syntax is sometimes confusing. Could you also please try FreeTracks.Add (FreeTrack).


#3

I bow for ur response.
I’m using latest nerocom version v6.3.0.6c.
I need another help too. how to append contents to same CD.

Can i have any samples or any other SDK otherthan NeroSDK or previous thread or forum or tips?

Set Folder = New NeroFolder
Dim drives As INeroDrives
Dim FreeTrack As NeroFreestyleTrack

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 )


#4

Hi alexp,
I tried with all combination of obj intiating and declaration.
But still the same error arising.


#5

I can now confirm that there is a problem with this issue. It will be resolved in the next version.


#6

Thks for response!
How long shd i wait for newer version. Is there any other soultion for making raw DataCd.
Is there any combination of flags or options to butn DataCd with “BurnIsoAudioCD” ?