"Copy Database Design only" by code

Hi,in Lotus Notes Client you can copy a database and specify that you want to copy the design only. How can i do this by using LotusScript??

Christian Ramseier

Subject: “Copy Database Design only” by code

From the Help

  1. This script creates an empty copy of the database PURCHASE.NSF on the server Athens.

Dim db, archiveDb As NotesDatabase

Set db = New NotesDatabase( “Athens”,“purchase.nsf” )

Set archiveDb = db.CreateCopy _

( “Athens”,“archive\purchase.nsf” )