File Names truncated

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
   ct = ct + 1


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.

although no one could help me out, i added


and it fixed it. maybe this can help someone else.

Duplicate post: