Domino 9 und frühere Versionen > ND6: Entwicklung

Erstellungs- / Änderungsdatum eines Attachments auslesen ohne es zu lösen

<< < (2/2)

koehlerbv:
Damit ist das dann auch schon sauber getestet. Danke, Toni!

Bernhard

dia:
Vielen Dank für die Antworten. Ihr habt mir sehr geholfen. Hier noch mein Code wie ichs jetzt gelöst habe:


--- Code: --- Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim dblCount As Double
Dim dblPos As Double
Dim varMod As Variant
Dim varName As Variant
Dim dblAlter As Double

Set db = session.CurrentDatabase
Set dc = db.AllDocuments
dblCount = 0
dblAlter = 14

Set doc = dc.GetFirstDocument()
While Not(doc Is Nothing)
If doc.HasEmbedded Then
varName = Evaluate("@AttachmentNames", doc)
varMod = Evaluate("@AttachmentModifiedTimes",doc)
dblPos = 0
Forall items In varName
If (Right(items, 3) = "doc" Or Right(items, 3) = "dot") And Cdat(varMod(dblPos)) >= Date - dblAlter Then dblCount = dblCount + 1
dblPos = dblPos + 1
End Forall
End If
Set doc = dc.GetNextDocument(doc)
Wend

Messagebox "Es wurden " & dblCount & " Dokumente gefunden, die die Endung doc oder dot haben und nicht älter als " & dblAlter & " Tage (" & Date - dblAlter & ") sind."

--- Ende Code ---

Ich habe auch nochmal überprüft ob die Reihenfolge in der Names - Liste mit der Reihenfolge der ModifiedTimes - Liste übereinstimmt kann Toni nur zustimmen.

Navigation

[0] Themen-Index

[*] Vorherige Sete