Ordner in Masken auswählen

[Oli84]

Hallo Community,

ich benötige eine Möglichkeit einen  Ordnerpfad auszuwählen, der wiederrum mit in ein Feld geschrieben wird.

Analog zu der Auswahl eines Ordnerpfades gibt es den Befehl
@Command([MailAddress];"var");
hier habe ich die Möglichkeit eine E-Mailadresse aus dem Adressbuch anzuwählen, ähnlich soll dies auch bei der Auswahl des Ordners funktionieren.

Gibt es hierfür eine einfache Möglichkeit ?

[pram]

Ordner = NotesOrdner? (Oder Dateisystemordner?)

Fürs Dateisystem geht es mit @Prompt

Für Ordner gibt es glaub ich kein @Command, hier würde ich es über eine Designview probieren, die alle Ordner anzeigt:
http://www.lotusguru.com/lotusguru/LGBlog.nsf/d6plinks/20081106-7L5N6S

Die FormulaClass kannst du in 8.5 übrigens einfach mit dem DXL-Editor setzen:
im Navigator auf die View klicken, Rechtsklick/edit as DXL und dann im view-Tag das selectionnoteclass ergänzen:
<view .... selectionnoteclass='524' ....>

Gruß
Roland

[koehlerbv]

http://atnotes.de/index.php/topic,10524.0.html

[Oli84]

Danke für die schnelle Antwort.

Mir geht es um Ordner auf dem lokalen Rechner.
Mit @Prompt kann ich "nur" die Dateien, Schablonen auswählen.

Ganz kurz zu dem Sinn:
Ich bin derzeit dabei eine Maske zu schreiben die, die Berechtigungsvergabe steuert. Ich hätte gerne, dass der Vorgesetzt einen Ordner auf unserem Fileserver auswählen kann. Dieser Pfad soll dann in der Maske dargstellt sein.

[pram]

hast du dir @prompt([LocalBrowse]...) schon mal angeschaut,

ansonsten hätte ich noch workspace.openFileDialog + .saveFileDialog. Letzterer hat eine Option "DirectoriesOnly".
Damit solltest du weiter kommen.

Gruß
Roland

[Oli84]

Vielen Dank koehlerbv.

Ihc habe das Skript gemäß deiner Anleitung in eine Schaltfläche eingebaut.

Den Quelltext habe ich angepasst:
      Set rtitem = doc.GetFirstItem( "DateiBerechtigungen_1" ) '
Leider wird mir der Ordnername nicht in das Feld übergeben. Hast du eine Idee ?

[koehlerbv]

Diesen Teil brauchst Du doch gar nicht ...
Und Rolands Vorschlag ist doch noch einfacher!

Bernhard

[Oli84]

Nunja allerdings trotzdem sollte doch die Variable folder gefüllt sein, oder ?

[koehlerbv]

Und wo ist die Variable folder? Wo belegst Du diese? Ways willst Du mit einem rtitem?

Bernhard

[Oli84]

ich habe das Script zu hand genommen das du mir vorgeschlagen hast.

Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim rtitem As Variant
   Dim folder As String
   folder = BrowseFolder ("","")
   Set db = session.CurrentDatabase
   Set collection = db.UnprocessedDocuments
   Set doc = collection.GetFirstDocument
   
End Sub

Über den Aufruf
   folder = BrowseFolder ("","")
steuerst du die Funktion an, wenn ich als Neuling dein Script richtig lesen wird hier die Funktion BrwoseFolder aufgerufen und die Variable folder gefüllt.

Später will ich diese Variable "folder" in meiner Maske weiter verwenden.

[koehlerbv]

Der Code, den ich verlinkt habe, ist nicht von mir. Und wie ich sehe, funktioniert der nicht, lässt sich nicht mal kompilieren.

Der Link ist besser - und tut:
http://atnotes.de/index.php/topic,18630.msg113735.html#msg113735

HTH,
Bernhard

[Oli84]

Okay super danke ... Der Code funktioniert auch bei mir.

Darf ich jetzt noch eine wirklich dumme Frage stellen:
Wie bekomme ich nun die Variable sBuffer in ein anders Feld in der Maske ?

[Oli84]

Hat niemand Motivation mir auf diese dumme Frage zu antworten ?

[Axel]

Notes-Programmierung 1.Stunde - Wie weise ich einen Wert einem Feld zu?

Backend:
doc.NameDesFeldes = sBuffer

Frontend:
Call uidoc.FieldSetText("NameDesFeldes", sBuffer)

Weitere Infos findest du in der Online-Hilfe von Notes

Axel

[Oli84]

super dankeschön !!