Hello. If somebody has a monute, I remember coming across something like this before but now it’s resurfaced again. I’m messing with an app that some 5 clinets use and some 6 clients. The design includes an agent that populates a shared private on first use folder depending on user entered parameters. The code uses this snippet to clean out the folder before it repopulates with the latest docouments the user wants to see…
Set vc = view.AllEntries
Call vc.RemoveAllFromFolder(foldername$)
Works ok in 5. With 6, the agent sees nothing in the folder. I tried the next snippet to see if this was a viewentrycollection problem but the agent still sees no docs in the folder…
Dim version As String
version = s.NotesVersion
If Instr(version,"Release 6") = 0 Then
Set vc = view.AllEntries
Call vc.RemoveAllFromFolder(foldername$)
Else
Dim folderdoc1 As NotesDocument
Dim folderdoc2 As notesdocument
Set folderdoc1=view.GetFirstDocument
While Not folderdoc1 Is Nothing
Set folderdoc2=view.GetNextDocument(folderdoc1)
Call folderdoc1.RemoveFromFolder(foldername$)
Set folderdoc1=folderdoc2
Wend
End If
I know i’ve encountered this before with an earlier 6 migration but I can’t find anything on it via google or notes.net searches. Does anybody know a workaround for this or is this apparent “bug” fixed beyond 6.0.1? Thank you very much for reading this and for your time.
Oh, a little additional info. After using db.getview(foldername$), I am being pointed to the shared folder, not the “privatized” folder with my name in $readers. The 6 client can’t seem to get ~any~ handle to the “privatized” folder…again, the 5 client works fine. Thank you again for any help if somebody has an idea.