wenn du lust hast könnst du mir folgendes bitte übersetzen?
' Ermittelt die Länge einer MP3-Datei
' in Millisekunden
Private Function GetMP3Length( _ //benötigt
ByVal strFileName As String) As Long //benötigt
Dim strBuffer As String //benötigt
Dim lRet As Long //benötigt
Dim sReturn As String //benötigt
' Da die mciSendString Funktion mit langen Dateinamen
' nicht korrekt arbeitet, muss zuvor der kurze
' 8.3 Dateiname der MP3-Datei ermittelt werden.
strBuffer = Space$(255) //benötigt
lRet = GetShortPathName(strFileName, strBuffer, Len(strBuffer)) //benötigt
If lRet <> 0 Then //benötigt
strFileName = Left$(strBuffer, InStr(strBuffer, vbNullChar) - 1) //benötigt
End If //benötigt
' MP3-Datei öffnen //hab ich bereits
mciSendString "open " & strFileName & _ //hab ich bereits
" type MPEGVideo alias mp3audio", 0, 0, 0 //hab ich bereits
' Länge der Datei in Millisekunden auslesen //benötigt
sReturn = Space$(256) //benötigt
lRet = mciSendString("status mp3audio length", _ //benötigt
sReturn, Len(sReturn), 0&) //benötigt
' MP3-Datei schliessen //hab ich bereits
mciSendString "close mp3audio", 0, 0, 0 //hab ich bereits
GetMP3Length = Val(sReturn) //benötigt
End Function

Hilfe
Neues Thema
Antworten

Nach oben

