Erweiterte Dateieigenschaften Bewertung (5 Sterne) ändern

275 Aufrufe
Gefragt 26, Dez 2016 in Tabellenkalkulation von rolanda
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.

Bitte logge dich ein oder melde dich neu an um die Frage zu beantworten.

...