Notes/Domino 4 and 5 Forum

Hi,

Here i want the readers,authors and editors and above entries in seperate text files of a particular database. here i wrote the code for exporting reader entries to reader text file with addition to it ,i want to export as well author entries and editor entries in author text file and editor text file.

please let me know ... this is very urgent.


Sub Click(Source As Button)

On Error Goto errhand
Dim fileNum As Integer
Dim fileName As String
Dim s As New notessession
Dim db As notesdatabase
Dim dbACL As NotesACL
Dim dbACLEntry As NotesACLEntry
Set db = s.currentdatabase
Set dbACL = db.ACL

Set dbACLEntry = dbACL.GetFirstEntry()

fileNum% = Freefile()
fileName$ = "c:\temp\Reader.txt"
Open fileName$ For Output As fileNum%


While Not(dbACLEntry Is Nothing)
Select Case dbACLEntry.Level
Case ACLLEVEL_READER : level = "Reader"
Messagebox dbACLEntry.Name
ss=dbACLEntry.Name
Print #filenum%, ss
End Select
'Messagebox dbACLEntry.Name
'Messagebox dbACLEntry.Level

Set dbACLEntry = dbACL.GetNextEntry(dbACLEntry)
Wend








Close fileNum%
Close
Exit Sub

finis:
Exit Sub
errhand:
Msgbox "error at line " & Erl & ": " & Error
Resume finis

End Sub