devxlogo

Retrieve the length of a media file (WAV, AVI, MIDI)

Retrieve the length of a media file (WAV, AVI, MIDI)

You can retrieve the length of a standard windows media file (WAV, AVI or MIDI) using simple MCI functions. First, you must open the file with:

Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal _    lpstrCommand As String, ByVal lpstrReturnString As String, _    ByVal uReturnLength As Long, ByVal hwndCallback As Long) As LongCommandString = "Open " & FileName" & " alias MediaFile"mciSendString CommandString, vbNullString, 0, 0&

where MediaFile is an arbitrary name (an alias) that you then use in subsequent command strings. FileName is the full path of the media file and must be in the short format 8+3 characters. Now you can get file length in milliseconds:

Dim MediaLength as LongDim RetString As String * 256Dim CommandString As StringCommandString = "Set MediaFile time format milliseconds"mciSendString CommandString, vbNullString, 0, 0&CommandString = "Status MediaFile length"MciSendString CommandString, RetString, Len(RetString), 0&MediaLength = CLng(RetString)

Now, the MediaLength variable containes the length of the media file. You only have to close the MCI device, with

CommandString = "Close MediaFile"MciSendString CommandString, vbNullString, 0, 0&

See also  Using Consumer Trust to Help Build Brands On Major Social Platforms
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist