Dokumenteigenschaften auslesen dauert

[schauan]

Hallöchen,

wird wohl nicht so einfach zu beschleunigen gehen. Ich hab lokal so etwa 1,5-2 Sekunden, wären bei 300 Files also 10 Minuten. Geht es nur um die 300 Files?

[Nelloz]

Ja so ungefähr dauert es auch.

Ja es geht nur um die Files.
Da Makro wird ab und zu mal ausgeführt, weil es Dateien vergleicht, die eine bestimmte Eigenschaft haben müssen.
Diese werden alle paar Tage gelistet und dann verglichen wozu ich das Makro brauche.
Wäre natürlich schön, ginge das schneller als 10 Minuten.

[schauan]

Hallöchen,

schneller würde es eventuell gehen, wenn Du andere Dateieigenschaften nehmen könntest, z.B.

Code:

Sub test()
'Pfad der Datei
strFile = "G:\Alfa.pdf"
Set objShell = CreateObject("Shell.Application")
Set fso = CreateObject("Scripting.Filesystemobject")
Set nsFolder = objShell.Namespace(fso.GetParentFolderName(strFile))
Set File = nsFolder.ParseName(fso.GetFileName(strFile))
'Ausgabe in A1 - je nach Dateityp und System ggf. andere Zahl nehmen - zum Test ggf. Schleife 0 - 300
Cells(1, 1).Value = nsFolder.GetDetailsOf(File, 10)
End Sub

[Nelloz]

Hallo,

ja mit getDetailsOf habe ich es auch schon mal versucht.
Leider liest er da nur die Standardeigenschaften von Microsoft aus,
ich muss aber die SharePoint Eigenschaften, also die ContentTypeProperties, benutzen.