Hallo Leute,
ich möchte eine Datei auf dem Domino Server hinterlegen. Der läuft auf Linux.
Wenn ich keinen Pfad im Code angebe dann hinterlegt Notes die Datei im Notesdata Ordner.
Weiß jemand wie ich den Pfand angeben muss, um die Datei in einem anderen Ordner zu hinterlegen?
code:
Sub Initialize
'On Error Goto errorHandler
Const textfile$ = "hallo.txt"
Const fldDelim% = 59 '
Dim session As NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim lastCol As Integer
Dim colCnt As Integer
Dim txt As String
Dim fileNum As Integer
Dim docCnt As Integer '
Set session = New NotesSession
Set db = session.CurrentDatabase
Set view = db.GetView("all")
'Call view.Refresh 'Ansicht aktualisieren, damit der aktuellste Stand exportiert wird
'view.AutoUpdate = False 'damit keine eventuellen Aktualisierungen dazwischenfunken
lastCol = Ubound(view.Columns)
colCnt = 0
txt = ""
fileNum% = Freefile()
If Dir$(textfile, 0) <> "" Then
Kill textfile
End If
Open textfile For Output As fileNum%
Set doc = view.GetFirstDocument
docCnt = 0
While Not (doc Is Nothing)
txt = ""
For colCnt = 0 To lastCol Step 1
txt = txt + doc.ColumnValues(colCnt)
If (colCnt <> lastCol) Then
txt = txt + Chr$(59)
' Semikolon
End If
Next
Print #fileNum%, txt
docCnt = docCnt + 1
Set doc = view.GetNextDocument(doc)
Wend
Close fileNum%
End Sub
