Imports vb = Microsoft.VisualBasic
 
Private Declare Function GetShortPathName Lib "kernel32" _
      Alias "GetShortPathNameA" ( _
      ByVal lpszLongPath As String, _
      ByVal lpszShortPath As String, _
      ByVal cchBuffer As Long) As Long

Private Function GetMP3Length(ByVal strFileName As String) As Long
 
        Dim sShortName As String
        Dim RetVal As Long
        Dim sReturn As String
 
        ' Da die mciSendString Funktion mit langen Dateinamen
        ' nicht korrekt arbeitet, muss zuvor der kurze
        ' 8.3 Dateiname der MP3-Datei ermittelt werden.
        sShortName = Space$(256)
        RetVal = GetShortPathName(strFileName, sShortName, vb.Len(sShortName))
 
        If RetVal = 0 Then
            MsgBox("Es ist ein Fehler aufgetreten", vbCritical, "Fehler")
        Else
            strFileName = vb.Left(sShortName, CInt(RetVal))
            'strFileName = vb.Left(sShortName, InStr(sShortName, vbNullChar) - 
            ' 1)
        End If
 
        ' MP3-Datei öffnen
        mciSendString("open " & strFileName & " type MPEGVideo alias mp3audio", _
          CStr(0), 0, 0)
 
        ' Länge der Datei in Millisekunden auslesen
        sReturn = Space$(256)
        RetVal = mciSendString("status mp3audio length", sReturn, Len(sReturn), _
          0&)
 
        ' MP3-Datei schliessen
        mciSendString("close mp3audio", CStr(0), 0, 0)
 
        Return CLng(Val(sReturn))
 
    End Function

strFileName = vb.Left(sShortName, CInt(RetVal))

strFileName = vb.Left(sShortName, InStr(sShortName, vbNullChar) - 1)