例: Create method

  1. 次のスクリプトはサーバー Zagreb にデータベースを新規作成して、そのタイトルを Inventory Tracking にします。
    Dim db As New NotesDatabase( "", "" )
    Call db.Create( "Zagreb", "inventry.nsf", True )
    db.Title = "Inventory Tracking"
  2. 次のスクリプトは、データベース quack.nsf が現在のコンピュータに存在するかどうかを調べます。存在しない場合、Create メソッドを使用して quack.nsf というファイル名でデータベースを新たに作成します。
    Dim db As New NotesDatabase( "", "quack.nsf" )
    If db.IsOpen Then
      Messagebox( "The database quack.nsf already exists." )
    Else
      Messagebox( "Creating the database quack.nsf...")
      Call db.Create( "", "", True )
      db.Title = "Ducks of North America"
    End If