Dateieigenschaften ändern
05.10.2022 09:50:48
Max
ich versuche aktuell die Dateieigenschaften einer PDF zu verändern, aber bräuchte etwas Hilfe.
Ich hab mehrere Dateien (2-Stellig) und diese habe ich in einem anderen Pfad als Verknüpfung hinzugefügt.
Jetzt ist das Problem, dass sich das Verzeichnis der Hauptdatei geändert hat und somit die Verknüpfungen unbrauchbar sind.
Unter den Eigenschaften der Verknüpften Dateien gibt es die Pfade "Ziel:" und "Ausführen in:".
Jetzt wollte ich über ein Makro die Anfangszeilen der Pfad durch den richtigen Pfad ersetzen, ohne den hinteren Teil zu verändern.
Infos der Datei, hab ich diesen Code gefunden:
Option Explicit
Sub DateiEigenschaften()
Dim fso As Object
Dim file As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.GetFile("C:\Temp\Testdatei-Verknüpfung.pdf")
Range("A1").Value = "Attribute: " & file.Attributes
Range("A2").Value = "erstellt am: " & file.DateCreated
Range("A3").Value = "letzter Zugriff: " & file.DateLastAccessed
Range("A4").Value = "letzte Bearbeitung: " & file.DateLastModified
Range("A5").Value = "Laufwerk: " & file.Drive
Range("A6").Value = "Name ohne Pfad: " & file.Name
Range("A7").Value = "Übergeordneter Ordner: " & file.ParentFolder
Range("A8").Value = "Vollständiger Pfad: " & file.Path
Range("A9").Value = "MS-DOS-Ordnername: " & file.ShortName
Range("A10").Value = "MS-DOS-Pfad: " & file.ShortPath
Range("A11").Value = "Gesamtgröße: " & file.Size
Range("A12").Value = "Dateityp: " & file.Type
End Sub
Hat jemand einen Anstoß für mich?
Danke im Voraus
Max