投稿者 るきお  (社会人) 投稿日時 2010/8/13 13:05:27
Windows Media Playerの機能を呼び出すことでなんとかすることはできるみたいです。
この場合、多分、Windows Media Playerがインストールされていることが前提となり、いくつかの設定項目はWindows Media Playerと連動することになります。

以下の例を試すには、[プロジェクト] - [参照の追加]で、[COM]のWindows Media Playerへの参照設定を追加してください。


インポート方法(CDのリッピング)
    
Dim wmp As New WMPLib.WindowsMediaPlayer

Dim cdDrives As WMPLib.IWMPCdromCollection = wmp.cdromCollection
Dim CDRom As WMPLib.IWMPCdrom = cdDrives.getByDriveSpecifier("E")
       
CDRom.Playlist.Item(0).setItemInfo("SelectedForRip""True")

Dim ripper As WMPLib.IWMPCdromRip = CDRom
ripper.startRip()

これでとりあえずできるみたいですが私も理屈がよくわかりません。
元ネタ:http://www.codeproject.com/Messages/2178651/Re-Rip-CD.aspx

CDDBの接続方法…というか、Media Player経由で曲名等取得する方法
    
Dim wmp As New WMPLib.WindowsMediaPlayer

Dim cdDrives As WMPLib.IWMPCdromCollection = wmp.cdromCollection
Dim CDRom As WMPLib.IWMPCdrom = cdDrives.getByDriveSpecifier("E")

Dim cdTitle As String
cdTitle = CDRom.Playlist.name
Debug.WriteLine("CDのタイトル:" & cdTitle)

Dim songTitle As String
songTitle = CDRom.Playlist.Item(0).name
Debug.WriteLine("1曲目のタイトル:" & songTitle)