Film-Länge
26.01.2013 11:14:52
Anton
Hallo Wolfgang,
so?:
Public Sub b()
Dim datei As String
datei = "E:\Temp\Film.wmv" 'anpassen
Debug.Print dauer(datei)
End Sub
Public Function dauer(strPfad_der_datei As String) As String
Dim objShell As Object, objFolder As Object, objDatei As Object
Dim strDatei As String, varOrdner, i As Integer
Set objShell = CreateObject("Shell.Application")
varOrdner = Left(strPfad_der_datei, InStrRev(strPfad_der_datei, "\"))
strDatei = Mid(strPfad_der_datei, InStrRev(strPfad_der_datei, "\") + 1)
Set objFolder = objShell.Namespace(varOrdner)
Set objDatei = objFolder.ParseName(strDatei)
For i = 0 To 300
'If objFolder.GetDetailsOf(, i) = "Dauer" Then ' Windows XP
If objFolder.GetDetailsOf(, i) = "Länge" Then ' Windows 7
dauer = objFolder.GetDetailsOf(objDatei, i)
Exit For
End If
Next
Set objDatei = Nothing
Set objFolder = Nothing
Set objShell = Nothing
End Function
mfg Anton