Hallo zusammen,
versuche gerade über VBA die erweiterten Dateieigenschaften zu ändern, gezielt die Bewertung mit den 5 Sternen.
Habe hierzu ein Makro entdeckt mit dem ich diese Eigenschaften auslesen kann.
'################################################
Public Sub test_einlesen()
Const strFolder As String = "D:\Video_Musik"
Dim objShell As Object, objFolder As Object
Dim intColumn As Integer, lngRow As Long
Dim varName
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(strFolder)
intColumn = 1
lngRow = 1
For Each varName In objFolder.Items
If objFolder.getdetailsof(varName, 2) <> "Dateiordner" Then 'keine Ordner
Cells(lngRow, intColumn + 0) = objFolder.getdetailsof(varName, 0) 'Namen
Cells(lngRow, intColumn + 1) = objFolder.getdetailsof(varName, 19) 'Sterne
'MsgBox objFolder.getdetailsof(varName, 0) & " " & objFolder.getdetailsof(varName, 19)
lngRow = lngRow + 1
End If
Next
Set objShell = Nothing
Set objFolder = Nothing
End Sub
'################################################
Aber wie kann ich über VBA die Sterne einzelner Dateien ändern?
z.B:: "D:\Video_Musik\ACDC - Helle Bells.mp3" = 5 Sterne
Danke im Voraus.