Datei Info auslesen

Sub ExtendedFileDetails(FolderName As String, FileName As String)
Dim myFolder As Folder
Dim myItem As FolderItem
Dim myShell As New Shell
Dim i As Long
Dim Headers(0 To 34) As Variant
Set myFolder = myShell.Namespace(FolderName)
Set myItem = myFolder.ParseName(FileName)
For i = 0 To 34
Headers(i) = myFolder.GetDetailsOf(myFolder.Items, i)
Next i
For i = 0 To 34
Debug.Print i & vbTab & Headers(i) & vbTab & myFolder.GetDetailsOf(myItem, i)
Next i
End Sub

Sub testx()
ExtendedFileDetails "D:\Musik", "Avicii - Levels.mp4"
End Sub