Datenbanken einlesen ?

[_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

[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