Today I had an interesting problem. If you want to check personal folders with LotusScript you can’t get them (except your script runs local).
I did a little research in a forum on http://www.lotus.com/ldd and ‚bingo‘.
The idea behind is to get the UniqueID of the folder and then reference to it.
Function first.
Function isPrivateCopy(pnv As Variant) As Integer
‚based on code by Bruno Beauparlant and Heinrich Mueller
Dim designElem As notesDocument
Dim flags As Variant
isPrivateCopy = False
Set designElem = pnv.Parent.GetDocumentByUnid( pnv.UniversalID )
If Not (designElem Is Nothing) Then
If DesignElem.HasItem(„$Flags“) Then
flags = DesignElem.GetItemValue(„$Flags“)
Forall f In flags
If Instr(f, „V“) > 0 Then
IsPrivateCopy = True
End If
End Forall
End If
End If
End Function
Here an example code
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim nvec As notesviewentrycollection
Set db = s.CurrentDatabase
Forall v In db.Views
Set view = v
If isPrivateCopy(view) Then
If view.Aliases(0) = „Serial“ Then
Set nvec = view.AllEntries
Messagebox Cstr(nvec.Count) & “ documents in folder“
End If
End If
End Forall
End Sub
You can find the whole thread here:
Entries in „private on first use“ folder