ich habe einen Ordner mit "NICHT-XLS"-Dateien auf meinem Win10 System. Ich möchte gerne z.B. die Dateieigenschaft "Bewertung (1-5 Sterne)" manipulieren. Habe viel geguckt, aber immer nur Lösungen mit DSOleFile.DLL gefunden. Z.B. bon NEPUMUK...
Public Sub prcWrite_Property()
Dim objFSO As Object, objFile As Object
Dim objFilePropReader As DSOleFile.PropertyReader
Dim objDocProp As DSOleFile.DocumentProperties
Set objFilePropReader = New DSOleFile.PropertyReader
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each objFile In objFSO.GetFolder("C:\Users\chris\OneDrive\Desktop\TEMP ORdner\").Files
Set objDocProp = objFilePropReader.GetDocumentProperties(objFile.Path)
objDocProp.Author = "Neuer Autor"
objDocProp.Comments = "Neuer Kommentar"
Next
Set objFilePropReader = Nothing
Set objDocProp = Nothing
End Sub
ABER mit dieser DLL scheint es auf meinem System (Win10 und Office 365) nicht zu klappen. Wer hat eine AKTUELLE Lösung für mich? VLG und DANKE