Private Type MP3TagInfo tag As String * 3 title As String * 30 artist As String * 30 album As String * 30 year As String * 4 comment As String * 30 genre As String * 1End Type' Retrieve the informations contained into the standard ID3 tag' of the specified MP3 file' Return an array of 6 elements with the following meaning:' - index 0: song title' - index 1: artist' - index 2: album' - index 3: year' - index 4: comment' - index 5: genre: this is an integer value --> use any MP3 player,' such as Winamp,' to look for the descriptions'' Example' Dim mp3info() As String' Dim sDescr As String' ' get the infos' mp3info = GetMP3Info("C:MyMusicDemo.mp3")' ' build and show a description string' sDescr = "Title: " & mp3info(0) & vbCrLf & ' "Artist: " & mp3info(1)' & vbCrLf & ' "Album: " & mp3info(2) & vbCrLf & ' "Year: " & ' mp3info(3) & vbCrLf & ' "Comment: " & mp3info(4) & vbCrLf & ' ' "Genre: " & mp3info(5)' MsgBox sDescrFunction GetMP3Info(ByVal sFileName As String) As String() Dim mp3info As MP3TagInfo Dim infoRet(5) As String On Error Resume Next ' open the specified file Open sFileName For Binary As #1 ' fill the strct's fileds With mp3info Get #1, FileLen(sFileName) - 127, .tag If Not .tag = "TAG" Then Close #1 Exit Function End If Get #1, , .title Get #1, , .artist Get #1, , .album Get #1, , .year Get #1, , .comment Get #1, , .genre Close #1 End With ' from struct to array infoRet(0) = Trim$(mp3info.title) infoRet(1) = Trim$(mp3info.artist) infoRet(2) = Trim$(mp3info.album) infoRet(3) = Trim$(mp3info.year) infoRet(4) = Trim$(mp3info.comment) infoRet(5) = CInt(Asc(Trim$(mp3info.genre))) - 1 'return the array GetMP3Info = infoRetEnd Function


Westinghouse Builds Polish Power Plant
Westinghouse Electric Company and Bechtel have come together to establish a formal partnership in order to design and construct Poland’s inaugural nuclear power plant at