Hi, this is my code: It’s a modified version of the sample NEROCOM code:
Private Sub Burn_Click()
On Error GoTo handle_error
btnAbort.Enabled = True
Browse.Enabled = False
Burn.Enabled = False
Timer1.Enabled = True
Dim ds, e
Dim DeviceExist As Boolean
Dim Artist As String
Dim Title As String
Set Folder = New NeroFolder
Dim drives As INeroDrives
Set drives = nero.GetDrives(NERO_MEDIA_CDR)
Set drive = drives(AvailableDevices.ListIndex)
Dim MusicTrack() As NeroAudioTrack
ReDim MusicTrack(intNumOfFiles - 1)
'Set MusicTrack = New NeroAudioTrack '!!!ERROR HERE!!!
Dim list As NeroAudioTracks
Set list = New NeroAudioTracks
Dim a As Integer
Set ds = CreateObject("scripting.filesystemobject")
For Each e In ds.drives
If Left(e, 1) = "F" Then DeviceExist = True
Next
If DeviceExist <> True Then
MsgBox "Specified Device not Present"
Exit Sub
'writeErrorCode
End If
FilesToBurn.Col = 0
For a = 1 To intNumOfFiles - 1
FilesToBurn.Row = a
Set MusicTrack(a) = New NeroAudioTrack
MusicTrack(a).FileName = FilesToBurn.Text
MusicTrack(a).Title = a & NameFromPath(FilesToBurn.Text)
If audioFormat = "mp3" Then
MusicTrack(a).TrackType = NERO_AUDIO_TRACK_FILE_MP3
Else
If audioFormat = "wma" Then
MusicTrack(a).TrackType = NERO_AUDIO_TRACK_FILE_WMA
Else
MusicTrack(a).TrackType = NERO_AUDIO_TRACK_FILE_WAV
End If
End If
list.Add MusicTrack(a)
Next
'Dim isotrack As NeroISOTrack
'Set isotrack = New NeroISOTrack
'isotrack.Name = "TestTrack"
'isotrack.RootFolder = Folder
'Dim file(2) As NeroFile
'For a = 0 To 2
'Set isotrack(a) = New NeroISOTrack
'Set file(a) = New NeroFile
'Folder.Files.Add file(a)
'file(a).Name = a & NameFromPath(edtFileName.Text)
'file(a).SourceFilePath = edtFileName.Text
'Next
'isotrack.BurnOptions = NERO_BURN_OPTION_CREATE_ISO_FS + NERO_BURN_OPTION_USE_JOLIET
'drive.BurnIsoAudioCD "Sloan", "Pretty Together", 0, Nothing, list, Nothing, NERO_BURN_FLAG_SIMULATE + NERO_BURN_FLAG_WRITE + NERO_BURN_FLAG_BUF_UNDERRUN_PROT, 52, NERO_MEDIA_CD
'drive.BurnIsoAudioCD "Custom CD", "Various Artists", 0, Nothing, list, Nothing, NERO_BURN_FLAG_SIMULATE + NERO_BURN_FLAG_BUF_UNDERRUN_PROT, 4, NERO_MEDIA_CD
Artist = "Various Artists"
Title = "Custom CD"
'drive.CDInfo (NERO_READ_CD_TEXT)
If (totalTime <= 4320000) Then
startTime = Now
drive.BurnIsoAudioCD Artist, Title, 0, Nothing, list, Nothing, NERO_BURN_FLAG_WRITE + NERO_BURN_FLAG_BUF_UNDERRUN_PROT + NERO_BURN_FLAG_CD_TEXT, 52, NERO_MEDIA_CD
'drive.BurnIsoAudioCD Artist, Title, 0, Nothing, list, Nothing, NERO_BURN_FLAG_SIMULATE + NERO_BURN_FLAG_BUF_UNDERRUN_PROT, 4, NERO_MEDIA_CD
Else
MsgBox ("The selected songs will not fit on the CD")
Burn.Enabled = True
End If
Alternatively, would it be possible to use NeroCom to add a Volume Label?? I was looking through the documentation and couldnt’ figure it out.
Thanks for the response by the way.