Domino 9 und frühere Versionen > Entwicklung

Alle Maildatenbanken auf dem Server bearbeiten

<< < (2/4) > >>

eknori:
guck mal in die NotesDatabaseClass --> db.FilePath

eknori:
irgendwie so (

Sub Click(Source As Button)
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Set db = s.currentdatabase

path = db.filepath
file = db.filename
pos = Instr(path, file)
path = Left(path, pos-1)

   Msgbox path
End Sub

oder einfacher

Sub Click(Source As Button)
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Set db = s.currentdatabase
   
   path = Left(db.filepath, (Instr(db.filepath, db.filename) -1))
   
   Msgbox path
End Sub

eknori:
nu isser weg und ich sitze hier und warte auf ein feedback... :'(

Axel_Janssen:
@Andreas: eknoris Ansatz ist gut.
Wait a moment. Meine Kristallkugel sagt mir gerade, dass sich die Mailfiles möglicherweise, durch irgendwelche Zufälle in verschiedenen Verzeichnissen befinden.
Du mußt du den notesDatabase.path eben gegen ein Array testen.

Gruß Axel

koehlerbv:
Nicht gegen ein Array testen, sondern das machen, was Semeaphoros schon sagte: Sicher geht das nur über das Adressbuch.

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete