armbrustconsulting.com

Resources | VB | Audio Durations

Duration of Audio Files:

To use the following code to get the duration time of MP3s and WMAs you will need to download the Windows Media Encoder SDK.

Create a VB Project and set a reference (Project --> References) to Windows Media Encoder. The Encoder Object will return the duration of the audio file in milliseconds. Add the following code to your project:

Function GetDuration(fullFilePath As String) As String Dim BasicEdit As WMEncBasicEdit ' Create the WMEncBasicEdit object. Set BasicEdit = New WMEncBasicEdit ' You must use a fully qualified path to the file BasicEdit.MediaFile = fullFilePath ' Add indexing to the file. BasicEdit.Index = True 'set GetDuration equal to the duration length...this will return the number of milliseconds GetDuration = BasicEdit.duration Set BasicEdit = Nothing End Function

Unfortunately, the Encoder object does not work with .WAVs. To get the length of a WAV you must use an API call. Add this code to your VB Project:

Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal _ lpstrCommand As String, ByVal lpstrReturnString As String, _ ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Public Function GetWavLength(fileName As String) Dim MediaLength As Long Dim RetString As String * 256 Dim CommandString As String CommandString = "Open " & fileName & " alias MediaFile" mciSendString CommandString, vbNullString, 0, 0& CommandString = "Set MediaFile time format milliseconds" mciSendString CommandString, vbNullString, 0, 0& CommandString = "Status MediaFile length" mciSendString CommandString, RetString, Len(RetString), 0& MediaLength = CLng(RetString) CommandString = "Close MediaFile" mciSendString CommandString, vbNullString, 0, 0& GetWavLength = CDbl(MediaLength) End Function

Related Links: Updating WMA files

Want to discuss this article, or other development issues? Visit our message boards!

Or contact us directly with a comment or question on this article: click here !

armbrustconsulting.com