VCD Burning using NeroCom

vbimport

#1

i want Burn VCD from avi file.

Set Folder = New NeroFolder
Dim drives As INeroDrives
Set drives = nero.GetDrives(NERO_MEDIA_CDR)
Set drive = drives(AvailableDevices.ListIndex)

Dim itemVCD As NeroVideoItem
Set itemVCD = New NeroVideoItem

Dim file As NeroFile
Set file = New NeroFile
Folder.Files.Add file
file.Name = NameFromPath(edtFileName.Text)
file.SourceFilePath = edtFileName.Text
Folder.Name = file.SourceFilePath

itemVCD.SourceFileName = file.Name
itemVCD.ItemType = NERO_NONENCODED_VIDEO_ITEM

drive.BurnVideoCD itemVCD, False, "d:	tt", Nothing, NERO_BURN_FLAG_WRITE, 4

but error ?

thank you


#2

Just saying that error occurred without saying what kind does not really help. Fortunately, the code shows one of possibly more issues. BurnVideoCD() actually accepts NeroVideoItems collection, not just a single NeroVideoItem. If you change this, it will probably work.