Private Sub Form_Load()
 
   Dim objShell  As Object
   Dim objFolder As Object
   Dim objFolderItem As Object
 
   Set objShell = CreateObject("Shell.Application")
   Set objFolder = objShell.NameSpace("E:\Daten\Daten\Filme")
   Set objFolderItem = objFolder.ParseName("Avanti, Avanti!.mp4")
 
   MsgBox "Länge - " & objFolder.GetDetailsOf(objFolderItem, 27) & vbCrLf _
         & "Datenrate - " & objFolder.GetDetailsOf(objFolderItem, 321) & vbCrLf _
         & "Breite - " & objFolder.GetDetailsOf(objFolderItem, 324) & vbCrLf _
         & "Höhe - " & objFolder.GetDetailsOf(objFolderItem, 322) & vbCrLf _
         & "EBR - " & objFolder.GetDetailsOf(objFolderItem, 323) & vbCrLf
 
   Set objFolderItem = Nothing
   Set objFolder = Nothing
   Set objShell = Nothing
 
End Sub