Page 1 sur 1
Remplacer design formulaire
Publié:
16 Fév 2007 à 14:35par 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: