Так ошибка только в этом?
Поставьте в свойствах агента Target - All documents in database...
Нееееее, у меня же xml не в представлении лежит, а сам по себе, в папочке, агент лезет в папочку и ...
Вот такой агентик:
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dbCopy As NotesDatabase
Set db = session.CurrentDatabase
filename$ = "import"
REM Open dxl file named after current database
Dim stream As NotesStream
Set stream = session.CreateStream
If Not stream.Open("c:\dxl\" & filename$ & ".xml") 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
REM Create new database named current database + "Copy"
Set dbCopy = New NotesDatabase("", "")
Call dbCopy.Create("", filename$ & "Copy", True)
REM Import DXL into new database
Dim importer As NotesDXLImporter
Set importer = session.CreateDXLImporter(stream, dbCopy)
importer.ReplaceDBProperties = True
importer.ReplicaRequiredForReplaceOrUpdate = False
importer.ACLImportOption = DXLIMPORTOPTION_REPLACE_ELSE_IGNORE
importer.DesignImportOption = DXLIMPORTOPTION_CREATE
Call importer.Process
End Sub
Попробовала через NotesDOMParser, но что-то мне не нравится этот txt-шник (если честно, то я не представляю как из него теперь данные высосать в другие поля).
из такой вот хрени:
Attribute xmlns:ns1:
Ссылка скрыта от гостей
Text node:
Element node: Header has 0 Attributes
Text node:
Element node: MessageNo has 0 Attributes
Text node: 20070903-093619-489
MessageNo
Text node:
Element node: LogFile has 0 Attributes
Text node: mtR31C_20070903-093619-489_NSI.csv
LogFile
Text node:
Header
Text node:
Element node: Data has 0 Attributes
Text node:
Element node: Спр.Номенклатура has 2 Attributes
Attribute DT: 20070903094448
Attribute FT: NSI