get duration of a music track using FSO

[FotoArt]

hello everyone
when u open a folder (with mp3 files in it)in details mode u can see the
duration of the track.
Is there a way I can grab this information in a word macro using
FileSystemObject or otherwise?

Any help is appreciated.
thanx
ahmed

 

[Steve Yandl]

One option is to use the Shell.Application object. This article will tell
you how to do this with a script. It's quite easy to do the same from VBA.

http://www.microsoft.com/technet/scriptcenter/guide/sas_fil_lunl.mspx?mfr=true


Steve Yandl

 

[FotoArt]

hello steve

I cant seem to get the value
all i get is the property name
how do i get the value of the extended file property.

heres thew code im using

Option Explicit
Sub myTest1()

Dim fso, myFileName, objShell As Object, objFolder As Object, xxx

Set fso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("D:\other\songs")

With Dialogs(wdDialogFileOpen)
myFileName = .Name
.Display

End With

xxx = objFolder.GetDetailsOf(myFileName, 21)

Selection.TypeText xxx

Set fso = Nothing
Set objShell = Nothing
Set objFolder = Nothing

End Sub

thanx
ahmed

 

[Steve Yandl]

Are you running Vista? I'm still on Win XP but I do remember reading
comments in a newsgroup that some of the index numbers might be off kilter.

Take a look at this article on using the MediaPlayer object to do much the
same thing. If the new approach doesn't work, we can experiment with the
index numbers for Shell.Application.

http://www.microsoft.com/technet/scriptcenter/funzone/player.mspx

Steve Yandl