Dim ws As New NotesUIworkspace
Dim s As New NotesSession
Dim dateien As Variant
path$ = s.GetEnvironmentString("Directory", True)
searchpath$ = path$ + "\" + "test"
dateien = ws.OpenFileDialog(True, "Auswahl", "Notes Databases|*.nsf", searchpath$)
- geht lokal und auf dem Server wenn die Aktion über einen gescheduled agent getriggert wird.
- man müsste noch herausfinden wie der Pfad sich zusammensetzt wenn man auf dem Server ist und die Aktion im UI startet ..... bin am nachdenken.....
cu