Remplacer design formulaire

[billbock]

Code : Tout sélectionner

Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim importer As NotesDXLImporter
   Dim stream As NotesStream
   Dim filename As String
   
   ' Open PlayerBasicChanged.xml - it contains the PlayerBasic form in DXL format.   
   Set stream = session.CreateStream
   filename = "C:\ls06\PlayerBasicChanged.xml"
   If Not stream.Open(filename) Then
      Messagebox "Cannot open " & filename,, "Error"
      Exit Sub
   End If
   If stream.Bytes = 0 Then
      Messagebox "File did not exist or was empty",, filename
      Exit Sub
   End If
   
   ' Import the DXL in "replace" mode - existing PlayerBasic form will be replaced.   
   Set importer = session.CreateDXLImporter
   On Error Goto errh   
   Call importer.SetInput(stream)
   Set db = session.CurrentDatabase
   Call importer.SetOutput(db)
   importer.DesignImportOption = DXLIMPORTOPTION_REPLACE_ELSE_IGNORE
   Call importer.Process
   Goto done
errh:
   Msgbox importer.Log
   Resume done
done: