I tried this to extract id3tags:


Dim strFile As String
Dim strTag As String
Dim strSongname As String
Dim strArtist As String
Dim strAlbum As String
Dim strYear As String
Dim strComment As String
Dim strGenre As String

For Each strFile In Filelist
strTag = New String(" "c, 3)
strSongname = New String(" "c, 30)
strArtist = New String(" "c, 30)
strAlbum = New String(" "c, 30)
strYear = New String(" "c, 4)
strComment = New String(" "c, 30)
strGenre = New String(" "c, 1)
Try
' open the file for read into a filestream
FileOpen(1, strFile, OpenMode.Binary)
' read the tag info
FileGet(1, strTag, FileLen(strFile) - 127)
objTag = New clsID3Tag()
' if .tag is equal to "TAG" then the song has a ID3 tag an we read on
If strTag = "TAG" Then
FileGet(1, strSongname)
FileGet(1, strArtist)
FileGet(1, strAlbum)
FileGet(1, strYear)
FileGet(1, strComment)
FileGet(1, strGenre)
Else
strSongname = "NoTag"
End If
Catch
strSongname = "NoTag"
End Try
MsgBox(strArtist & " - " & strSongname)
FileClose(1)

Next


The problem is that "MsgBox(strArtist & " - " strSongname) " at the end of the code only returns the contents of the of "strArtist".
The string concatenation with "&" does'nt seem to work.

Who can help me ?