ほんとですね。
試した感じ、newMediaからcurrentPlaylist.appendItemまでの間に、
IWMPMediaの一部のメンバのいずれかに触っておけば後で確認したときもちゃんと取れるようでしたが、
いかがでしょうか?
Dim media = AxWindowsMediaPlayer1.newMedia(...)
' 最適化抑制のため返値を一応使用するがReturnは絶対あり得ないはず
' attributeCountじゃなくてもいいけどそこにあったので
If media.attributeCount < 0 Then Return
AxWindowsMediaPlayer1.currentPlaylist.appendItem(media)
|