例: Import method (NotesDXLImporter - LotusScript®)

次の Visual Basic の例では、DXL を新しく作成したデータベースに呼び出します。

Private Sub Import_Click()
Dim session As New NotesSession
Dim dbdir As NotesDbDirectory
Dim db As NotesDatabase
Dim stream As NotesStream
Dim importer As NotesDXLImporter
Call session.Initialize

Rem Open file
Set stream = session.CreateStream
Rem If Not stream.Open("c:¥dxl¥names.dxl") Then
If Not stream.Open("c:¥dxl¥exporteddb.dxl") Then
  MsgBox "Cannot open names.dxl", , "Error"
  Exit Sub
End If
If stream.Bytes = 0 Then
  MsgBox "File did not exist or was empty", , FileName$
  Exit Sub
End If

Rem Create new database
Set dbdir = session.GetDbDirectory("")
Set db = dbdir.CreateDatabase("names2", True)

Rem Import DXL into new database
Set importer = session.CreateDXLImporter
importer.ReplaceDBProperties = True
importer.ReplicaRequiredForReplaceOrUpdate = False
importer.ACLImportOption = DXLIMPORTOPTION_REPLACE_ELSE_IGNORE
importer.DesignImportOption = DXLIMPORTOPTION_CREATE
Call importer.Import(stream, db)

Call stream.Close
End Sub