Domino 9 und frühere Versionen > ND6: Entwicklung

Datenbanken einlesen ?

(1/1)

_Arne_:
Moin Moin,

ich versuche im Moment alle NSF Datein in einem Verzeichnis zu lesen und mir den pfad+db Titel zu besorgen. Leider scheinen meine Berechtigungen auf dem Server nicht zugenügen, bekomme die Meldung "Action diallowed in this session" , gibt es eine alternative zum dir$ ;) ?


--- Code: ---Sub Initialize
' List the contents of the  directory, one entry per line.

Dim db As NotesDatabase
Dim dokudb As NotesDatabase
Dim doc As NotesDocument
Dim s As New NotesSession
Dim path As String
Dim File As String

Set db = s.CurrentDatabase

path$ = "E:\Lotus\Domino\Data\Dokumente\Archiv\*.nsf"
file$ = Dir$(path$, 0)

Do While file$ <> ""

Print "Bearbeite Datei " + file$

'Hier erzeugen für jede Datei ein neues Dokument
'in der Variable file$ befindet sich der Pfad

Set dokudb = s.GetDatabase("", file$) ' Einmal uff machen damit auch den Titel auslesen können !

Set doc = db.createdocument
doc.form = "Datenbankdateiname"
doc.Servername = "Servername"
doc.Datenbankname = file$
doc.Datenbanktitel = dokudb.title
doc.dbtyo = "alt"

file$ = Dir$()
Call doc.save (True,False)

Loop


End Sub

--- Ende Code ---

Axel:
Die Klasse NotesDbDirectory könnte dir hier weiterhelfen.

Sub Initialize
  Dim dbdir As New NotesDbDirectory("Snapper")
  Dim db As NotesDatabase

  Set db = dbdir.GetFirstDatabase(DATABASE)
  While Not db Is Nothing
      Msgbox db.Title, , db.FileName
      Set db = dbdir GetNextDatabase
  Wend
End Sub

 
Axel

_Arne_:
Danke das habe ich gesucht ;)

Navigation

[0] Themen-Index