Domino 9 und frühere Versionen > ND6: Administration & Userprobleme

Automatisch alle DBs in einem Ordner rekursiv kopieren

<< < (3/4) > >>

koehlerbv:

--- Zitat von: m3 am 11.02.09 - 16:54:53 ---... werfe den ersten Stein.

--- Ende Zitat ---

Aber keine Frauen!! Auch nicht solche mit Bart! Und auch nicht, wenn jemand "Jehova" gesagt hat  ;D  Au, aua, aaah ...

Fedaykin:
Hi m3

Vielleicht geht es ja die Profile über eine NotesNoteCollection zu holen.
notesNoteCollection.SelectProfiles = flag

Gerade gelesen wohl erst ab 6.5.

Gruss
Remo

m3:
Remo, GRANDIOS!

Danke für den Tipp, die Methode kannte ich noch nicht. Mit

--- Code: --- Dim nc As NotesNoteCollection
Dim nid As String
Set nc = src.CreateNoteCollection(False)
nc.SelectProfiles = True
Call nc.BuildCollection
nid = nc.GetFirstNoteId
While(nid <> "")
Set doc = src.GetDocumentByID(nid)
Call doc.CopyToDatabase( dst )
nid = nc.GetNextNoteId(nid)
Wend

--- Ende Code ---
kann ich wunderbar alle Profildokumente kopieren.

koehlerbv:
Jetzt muss ich - bei aller Anerkennung und Wertschätzung von Remo - aber Ulrich erwähnen: Genau das hat er bereits in Post #5 geschrieben, und ich Vollpfosten habe daraufhin meinen idiotischen "Verbesserungsvorschlag" sinnfrei in die Runde geworfen.

Bernhard

m3:
* m3 wischt sich die Paradeiser aus den Augen und wird Ulrich beim nächten Treffen ein Bierchen als Trostpflaster spendieren.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete