Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: klaussal am 25.11.02 - 16:03:59
-
@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 !!
-
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")
-
super !! hat geholfen.
wusste bis jetzt noch nicht, dass man (frau) kein unterverzeichnis angeben kann (was die suche beschleunigen würde).
nochmals danke :-*