Script Libraries auslesen

[pReD]

Hallo zusammen,

Ich möchte alle Script Libraries einer Datenbank auslesen. Laut Designer Hilfe knn ich das über eine Note Collection machen.

Code

	Dim nc As NotesNoteCollection
	Dim ndb As NotesDatabase
	dim ns as New NotesSession
 
	
	Set ndb = ns.CurrentDatabase
	Set nc = ndb.CreateNoteCollection(False)
	Call nc.SelectAllCodeElements(True)
	nc.SelectScriptLibraries = True
	Call nc.BuildCollection

In meiner Datenbanl habe ich ca. 100 Script Libraries, jedoch ist die Note Collection leer. Ich vermute mal stark, dass ich irgendwas falsch mache

Danke schonmal für eure Hilfe



Gruß
Patrick

[mibo11]

Hallo Patrick,

wahrscheinlich hilft dir für dein Vorhaben die Gestaltungsübersicht. Findest du im Designer unter Andere --> Übersicht. Ansonsten ist der gewählte Ansatz richtig, nur das du jetzt noch durch die Collection laufen mußt und jedes einezelne Dokument der Collection ansteuern solltest um den notwendigen Putput erzeugen zu können.

Gruß Sascha

[pReD]

Danke für deine Hilfe.


Habe gerade noch rausgefunden das der Codeauszug nicht ganz korrekt war, ich will ja nur die Script Libraries auslesen!

Code

	Set nc = ndb.CreateNoteCollection(False)
	Call nc.SelectAllDesignElements(False)	
	nc.SelectScriptLibraries = True
	Call nc.BuildCollection

so bekomme ich dann nur die Libraries zurück!