Lotuscript NotesDbDirectory. - , , 6.5 - csv. . GetFirstDatabase , . 1247 - " " - , NSF. (NTF), ..
Sub Initialize
Dim db As NotesDatabase
Dim f As Integer
f = Freefile
Open "c:\dbExport.csv" For Output As
Dim dbdir As New NotesDbDirectory("") ' opens LOCAL - put a server name here
Set db = dbdir.GetFirstDatabase(1247) ' all databases - NSF, NSG and NSH (no templates)
While Not(db Is Nothing)
Print
Set db = dbdir.GetNextDatabase
Wend
Close
End Sub