Private Declare Function AVIStreamLength Lib "avifil32.dll" (pavi As Any) As _
  Long
Private Declare Function AVIStreamStart Lib "avifil32.dll" (pavi As Any) As Long
'Private Declare Function AVIStreamSampleToTime Lib "avifil32.dll" (ByVal pavi 
' As Long, ByVal lSample As Long) As Long
Private Declare Function AVIStreamSampleToTime Lib "avifil32.dll" (pavi As Any, _
 ByVal lSample As Long) As Long
 
Private Function AVIStreamEndTime(ByRef handle As Long) As Long
Dim lSample As Long
   lSample = AVIStreamStart(ByVal handle) + AVIStreamLength(ByVal handle)
   AVIStreamEndTime = AVIStreamSampleToTime(ByVal handle, lSample)
End Function
 
 
Public Function AVI_GetLength(ByVal sFile As String) As Long
  Dim hFile As Long
  Dim AviInfo As AVIFileInfo
  Dim nLength As Long
 
  ' Fehlerbehandlung aktivieren
  Rem On Error Resume Next
 
  ' Initialisieren
  AVIFileInit
 
  ' AVI öffnen (Handle erstellen)
  If AVIStreamOpenFromFile(hFile, sFile, &H73646976, _
      0, &H0 Or &H10, ByVal 0&) = 0 Then
    ' Infos lesen
 
    nLength = AVIStreamEndTime(hFile)
 
    AVIFileRelease hFile
  End If
 
  ' Beenden
  AVIFileExit
  On Error GoTo 0
 
  ' Rückgabewert
  AVI_GetLength = nLength
End Function