如何使用Lotus Script获取数据库的设计上次修改日期？

Question

我想使用lotus脚本获取数据库的设计上次修改（未修改数据库）日期。我可以从catalog.nsf获取Design上次修改日期，但我需要从数据库中获取它。

Answer 1

在数据库中查找上次修改时的每个设计元素，并查看最新的设计元素 您可以使用NotesNoteCollection获取所有设计元素。由于设计元素是NotesDocuments，您可以使用doc.LastModified获取上次修改日期。

这是代理的一个示例，您可以在其中选择数据库并打印设计的最后修改日期：

Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim nid As String
Dim i As Integer
Dim doc As NotesDocument
Dim designLastModified As Variant
Dim serverDatabase As variant

serverDatabase = workspace.Prompt(13, "Choose Database", "") 
If IsEmpty(serverDatabase) Then Exit Sub
Set db = session.Getdatabase(serverDatabase(0), serverDatabase(1), false)

Dim nc As NotesNoteCollection
Set nc = db.CreateNoteCollection(False)
Call nc.SelectAllDesignElements(True)
Call nc.BuildCollection

designLastModified = 0

nid = nc.GetFirstNoteId
For i = 1 To nc.Count
    Set doc = db.GetDocumentByID(nid)
    If Not doc Is Nothing then
        If designLastModified < doc.LastModified Then
            designLastModified = doc.LastModified
        End If
    End if
    nid = nc.GetNextNoteId(nid)
Next

Print "Design last modified: " & designLastModified

它准确打印字段中显示的时间＆＃34;设计上次修改日期：＆＃34;在catalog.nsf中为选定的数据库。