hello, i have this code

ReDim File(nFiles) As NeroFile

Dim ct As Integer
ct = 1

Set fld = fso.GetFolder(dirforburn)
FileName = Dir(fso.BuildPath(fld.Path, sSrchString), vbNormal Or _
vbHidden Or vbSystem Or vbReadOnly)
While Len(FileName) <> 0

x = fld.Path

Set File(ct) = New NeroFile

File(ct).Name = FileName
File(ct).SourceFilePath = fso.BuildPath(fld.Path, FileName)

Folder.Files.Add File(ct)

FileName = Dir() ' Get next file
DoEvents

ct = ct + 1

Wend


drive.BurnIsoAudioCD "", "Title", 0, isotrack, Nothing, Nothing, NERO_BURN_FLAG_VERIFY + NERO_BURN_FLAG_WRITE, 4, NERO_MEDIA_CD



when it burns, it burns and changes the file names and truncates it. if the file name is 20 characters, it will change it to like 5 characters.. any one heard of this? thanks.