Domino 9 und frühere Versionen > ND6: Entwicklung

Eigenes Ordnersystem

<< < (6/6)

gossifu:


Ich hab da jetzt für Deine Anforderung nichts fertiges, aber wenn Du mit db.Views arbeitest, kannst Du Dir eine Liste aller Ordner zusammenstellen.

--- Code: ---Dim i as integer
Dim folder() As String
Forall v in db.Views
    If v.IsFolder Then
        Redim Preserve folder(i) As String
        folder(i) = v.Name
        i = i + 1
    End If
End Forall
--- Ende Code ---
ggfs noch sortieren, Script könnte man z. Bsp aus dem GruppenDokument des NAB nehmen,
um die Gruppenmitglieder zu sortieren.

Dann die Liste in eine Promptbox mit Einzel- oder Mehrfachauswahl.
So hast Du Die Namen der Ordner und kannst dann den Rest erledigen.

Vielleicht kann man auch schon eine Ordnerliste irgendwo hinterlegen, die beim Erstellen eine neuen Ordners aktualisiert wird, dann geht das schneller.

mfg

Kjeld

Edit: zu spät  ;)

Mikhail:
Okay, ich nehme es zurück;
es HÖRT sich zumindest viel einfacher AN, als ich es mir vorgestellt hatte...

Also ein großes DANKESCHÖN an dieser Stelle und ich werde mich dann mal damit auseinander setzen ;)

Grüße
Michael

edit:
Nochmal ein großes DANKE; mit eurer Hilfe und ein bisschen Fummeln bin ich jetzt so weit:


Sub Click (Source As Button)
   Dim uiws As New NotesUIWorkspace
   Dim sess As New NotesSession
   Dim db As NotesDatabase
   Dim dc As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim item As notesitem
   
   Set db = sess.CurrentDatabase
   Set dc = db.UnprocessedDocuments
   Set doc = dc.GetFirstDocument
   
   Dim i As Integer
   Dim folder() As String
   Forall v In db.Views
      If v.IsFolder Then
         Redim Preserve folder(i) As String
         folder(i) = v.Name
         i = i + 1
      End If
   End Forall
   
   Dim auswahl As Variant
   auswahl = uiws.Prompt(PROMPT_OKCANCELLIST, "In Ordner einfügen", "Bitte wählen Sie einen Ordner aus:", "", folder())
   Messagebox auswahl
   
   If Not auswahl = "" Then
      While Not doc Is Nothing
         Call doc.PutInFolder(auswahl)
         
         Set item = doc.ReplaceItemValue("sichtbarkeit", "3")
         Call doc.Save( True, False, False)
         Set doc=dc.GetNextDocument(doc)
      Wend
   End If
End Sub

Das braucht ein klein bisschen bis es die Liste geladen hat und daher denke ich nochmal über deinen Vorschlag nach, Kjeld. Aber grundsätzlich läufts erst mal, also wiederholtes Danke. PROMPTe Hilfe sozusagen :P

[closed]

Navigation

[0] Themen-Index

[*] Vorherige Sete