WavSize

Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, ByVal uReturnLength _
As Long, ByVal hwndCallback As Long) As Long

Function Wave_Lenght(Dateiname)
Dim i As Long, RS As String, cb As Long
RS = Space$(128)
i = mciSendString("stop sound", RS, 128, cb)
i = mciSendString("close sound", RS, 128, cb)
i = mciSendString("open waveaudio!" & Dateiname & _
" Alias sound", RS, 128, cb)
i = mciSendString("status sound length", RS, 128, cb)
Wave_Lenght = RS
i = mciSendString("stop sound", RS, 128, cb)
i = mciSendString("close sound", RS, 128, cb)
End Function

Private Sub Command1_Click()
x = Wave_Lenght("c:\file.wav")
MsgBox x
End Sub