怎麼用抓出播放中的音樂長度？

Question

WindowsMediaPlayer1.URL=\"某一首歌的位置\"
請問一下…
要怎麼把音樂檔的長度抓出來？

太棒了
我要的就是這個
不過問一下
Format((.Controls.currentPosition / .Controls.currentItem.duration) * 100, "000.000")
這個偶爾會發生溢位有辦法解決嗎？

Answer 1

'表單置1個WindowsMediaPlayer,1個CommandButton及1個TimerPrivate Sub Command1_Click()        With WindowsMediaPlayer1             .URL = "C:\Music\李翊君-七情六慾.mpg"             .Controls.play             Timer1.Interval = 10             Timer1 = True        End WithEnd SubPrivate Sub Timer1_Timer()        Cls        With WindowsMediaPlayer1                Print .Controls.currentPositionString; "\"; .Controls.currentItem.durationString, Format(.Controls.currentPosition, "0.0"); "\"; Format(.Controls.currentItem.duration, "0.0")        End WithEnd Sub

2006-06-19 13:18:26 補充：
把變數宣告成Variant再改成Decimal型態看看有沒有辦法,畢竟有些媒體檔案實在太大了Dim A As VariantA = Cdec( A )A = Format((.Controls.currentPosition / .Controls.currentItem.duration) * 100, "000.000")