601 Aufrufe
Gefragt in Tabellenkalkulation von
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.

Deine Antwort

Dein angezeigter Name (optional):
Datenschutz: Deine Email-Adresse benutzen wir ausschließlich, um dir Benachrichtigungen zu schicken. Es gilt unsere Datenschutzerklärung.
Anti-Spam-Captcha:
Bitte logge dich ein oder melde dich neu an, um das Anti-Spam-Captcha zu vermeiden.
...