When you run the LotusScript code below, it will ask you which folders you want to move from a current Notes/Domino database and to which database you want them moved.
By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
Sub Initialize Dim s As New NotesSession Dim w As New NotesUIWorkspace Dim dbSource As NotesDatabase, dbDest As NotesDatabase Dim source As NotesView, dest As NotesView Dim vc As NotesViewEntryCollection Dim docDest As NotesDocument Dim ve As NotesViewEntry Dim folders() As String Dim i As Integer Dim ret, rez Set dbSource = s.CurrentDatabase Forall v In dbSource.Views If v.IsFolder Then i = i + 1 Redim Preserve folders( i - 1 ) As String folders( i - 1 ) = v.Name End If End Forall ret = w.Prompt( PROMPT_OKCANCELLISTMULT, "Folder selection", "Select one or more folders to move.", folders(0), folders ) If Isempty( ret ) Then Messagebox "User canceled", , "Folder not selected" Exit Sub Else Forall f In ret Set source = dbSource.GetView( f ) Set vc = source.AllEntries rez = w.Prompt( 13, "Database selection", "Choose the database to move the folder to" ) If Isempty( rez ) Then Messagebox "User canceled", , "Database not selected" : Exit Sub Set dbDest = s.GetDatabase( rez(0), rez(1), False ) Call dbDest.EnableFolder( f ) Set ve = vc.GetFirstEntry Do Until ve Is Nothing Set docDest = ve.Document.CopyToDatabase( dbDest ) Call docDest.PutInFolder( f ) Set ve = vc.GetNextEntry( ve ) Loop Call vc.RemoveAllFromFolder( f ) Call source.Remove End Forall End If End Sub
MEMBER FEEDBACK TO THIS TIP
Here's a quick add-on that will allow you to copy the design of the folder as well.
Sub Initialize ...<snip> ... 'Code added Dim col As NotesViewColumn ... <snip> ... Set dbDest = s.GetDatabase ( rez(0), rez(1), False ) Call dbDest.EnableFolder( f ) 'Code added Set dest = dbDest.GetView( f ) 'Copy the columns from the source to the destination folder While dest.ColumnCount > 0 Call dest.RemoveColumn(dest.ColumnCount) Wend For i = 0 To source.ColumnCount-1 Set col = dest.CopyColumn(source.Columns(i), i+1) Next 'Code added ... <snip> ... End Sub
Do you have comments on this tip? Let us know.
This tip was submitted to the SearchDomino.com tip library by member Marko Bonaci. Please let others know how useful it is via the rating scale below. Do you have a useful Lotus Notes, Domino, Workplace or WebSphere tip or code snippet to share? Submit it to our monthly tip contest and you could win a prize.