Das Notes Forum
Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: Oli84 am 15.02.12 - 13:35:46
-
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 ?
-
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
-
http://atnotes.de/index.php/topic,10524.0.html
-
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.
-
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
-
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 ?
-
Diesen Teil brauchst Du doch gar nicht ...
Und Rolands Vorschlag ist doch noch einfacher!
Bernhard
-
Nunja allerdings trotzdem sollte doch die Variable folder gefüllt sein, oder ?
-
Und wo ist die Variable folder? Wo belegst Du diese? Ways willst Du mit einem rtitem?
Bernhard
-
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.
-
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
-
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 ?
-
Hat niemand Motivation mir auf diese dumme Frage zu antworten ?
-
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
-
super dankeschön !!