Dodaj referencu na Active Movie Control Type Library i poigraj se. Ima mozda i bolju funkcionalnost nego Media Player.
Pogledaj u MSDN-u i Controlling Filter Graphs using Visual Basic ili tako nesto. Tamo je objasnjeno ovo sto ti treba a i vise.

Pozdrav

Sve je to lepo ali ja ne mogu nikako da dobijem duzinu trajanja! Onaj ActiveMovie nece ni da ucita fajl, a MediaPlayer mi vraca vrednost (MediaPlayer1.Duration) tipa Double. Kad ga formatiram (Format$(MediaPlayer1.Duration,"mm:ss")) dobijem netacne podatke!

ActiveMovie je jedno, a ono sto sam ti ja predlozio je drugo. Nemoj mnogo da nerviras, evo ti resenje ;)

Dim mediacontrol As IMediaControl
Dim pozicija As IMediaPosition
Dim audio As IBasicAudio

Set mediacontrol = New FilgraphManager
mediacontrol.RenderFile ("c:\pesma.mp3")
Set audio = mediacontrol
Set pozicija = mediacontrol

preko pozicija.duration dobices ono sto ti treba.

pozdrav

Izvini, molim te, ali ja opet imam problem! Opet ne mogu da prikazem pravilno pizicija.Duration, zato sto ga dobijem kao (ja mislim) Double tip. Ja pokusam da ga prevedem ali ne znam ni u koji tip ni kako!

Hvala!

Kog je tipa i nije toliko bitno, a duration vraca sekunde, bar za mp3.
Probaj ovako :

minuti :
pozicija.duration\60

preostale sekunde :
pozicija.duration mod 60

Valjda je sada ok.

Ovo konacno radi! Mnogo ti hvala!

Izvini, ali ovo opet ne radi! Tj. radi ali se cudno ponasa. Kako da prkinem konekciju sa prethodno renderovanim fajlom? On ucitava vrednosti, ali treba svaki put da renderuje drugi fajl. On mi daje za prvih pet-sest fajlova podatke prvog, za drugih prvog iz te liste (npr. od 7-10 daje podatke sedmog), kao da ne uspe da Refreshuje render!
Hvala

Moras da 'poubijas' objekte pre renderovanja novog fajla :
set pozicija=nothing

i tako redom za sve ostale. Javi sta si uradio.

Onako ne radi, ali si mi dao ideju i ja sam poubijao sve i ponovo im vratio vrednosti:

Set mediacontrol = Nothing
Set mediacontrol = New FilgraphManager
Set pozicija = Nothing
Set audio = Nothing
pa onda renderovao fajl:
mediacontrol.RenderFile (putanj)
i vratio vrednosti:
Set audio = mediacontrol
Set pozicija = mediacontrol
Hvala ti puno!