Topic: How Do I Read The CD Info? (Read 1356 times)

KingSparta · « **on:** February 16, 2003, 11:51:27 am »

The following will get info from playing now and put it in a list box how would I get info from A Inserted CD?

=======================================

Private Sub btnListPlayingNow_Click()
Dim MyTempString As String
' empty the status list
List1(0).Clear
' get the current playlist object
Dim MJCurPlaylist As MediaJukebox.MJCurPlaylistAutomation
Set MJCurPlaylist = g_MJ.GetCurPlaylist
' get the file
Dim MJFile As MediaJukebox.MJFileAutomation
' go through each file
For MyPosition = 0 To MJCurPlaylist.GetNumberFiles - 1
Set MJFile = MJCurPlaylist.GetFile(MyPosition)
' add the file to the list
List1(0).AddItem MJFile.FileName
Next MyPosition
End Sub

KingSparta · « **Reply #1 on:** February 17, 2003, 09:05:32 am »

I take it the no answer means it can't be done?

If true could it be Added?

INTERACT FORUM

Author Topic: How Do I Read The CD Info? (Read 1356 times)

KingSparta

How Do I Read The CD Info?

KingSparta

Re: How Do I Read The CD Info?