dbdirectory

[klaussal]

@all,

bräuchte den einstieg für einen agenten, der in der db a im verzeichnis xyz läuft. dieser agent soll alle dbs anzeigen, die im gleichen verzeichnis liegen.
meine jetzige version zeigt alle dbs im stammverzeichnis an.
irgendein verdam.. "set" muss wohl falsch sein.
vielen dank im voraus !!

[Polarbaer]

Hi,
ich wollte mal die DBs zaehlen, die unter notes/data/mail liegen. Das folgende Script hat mir dies ermittelt. Vielleicht hilft es Dir ja etwas.
Ciao michael


Dim strServername As String
   Dim intZalle As Integer
   Dim intZmail As Integer
   strServername = "webmail2"
   intZalle = 0
   intZmail = 0
   Dim dbdir As New NotesDbDirectory(strServername)
   Dim db As NotesDatabase
   Set db = dbdir.GetFirstDatabase(DATABASE)
   While Not(db Is Nothing)
      'testen, ob DB im Verzeichnis Mail liegt
      intZalle= intZalle + 1
      If Ucase$(Left$(db.FilePath,4)) = "MAIL" Then   
         'ausschliessen, dass DB in root und Dateiname ist mail*.*
         If db.FilePath <> db.FileName Then
            'Msgbox (db.Title & Chr(10) & db.FileName & Chr(10) & db.FilePath)   
            intZmail = intZmail + 1
         End If         
      End If
      Set db = dbdir.GetNextDatabase
   Wend
   
   Msgbox ("Gesamt: " & intZalle & " Datenbanken" & Chr(10) & "Unter Mail " & intZmail & " Datenbanken")
   

[klaussal]

super !! hat geholfen.
wusste bis jetzt noch nicht, dass man (frau) kein unterverzeichnis angeben kann (was die suche beschleunigen würde).
nochmals danke