FolderReferences – In welchem Ordner befindet sich ein Dokument?

$FolderInfo
$FolderRefInfo

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  If db.FolderReferencesEnabled Then
    If Messagebox ("Folder References are enabled." & Chr(10) & Chr(10) _
      & "Do you want to disable the Folder References?" ,1 + 32,db.title) = 1 Then
      db.FolderReferencesEnabled = False
      Messagebox "Disabled Folder References now.....", 64, db.title
    Else
      Exit Sub
    End If
  Else
    If Messagebox ("Folder References are disabled." & Chr(10) & Chr(10) _
       & "Do you want to enable the Folder References?" ,1 + 32,db.title) = 1 Then
       db.FolderReferencesEnabled = True
       Messagebox "Enabled Folder References now.....", 64, db.title
    End If
  End If
End Sub

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  If db.FolderReferencesEnabled Then
    Exit Sub
    db.FolderReferencesEnabled = True
  End If
End Sub

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim vec As NotesViewEntryCollection
  Set db = session.CurrentDatabase
  If Not Messagebox ("Do you really want to create references of all docs in all folders?",1+32, db.title) = 1 Then
    Exit Sub
  End If

  If Not db.FolderReferencesEnabled Then
    db.FolderReferencesEnabled = True
  End If

  Forall v In db.Views
    If v.isFolder Then
      Set vec = v.AllEntries
      Call vec.PutAllInFolder( v.Name )
    End If
  End Forall

  Messagebox „Folder References are created…“, 64, db.title
End Sub

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim collection As NotesDocumentCollection
  Dim doc As NotesDocument
  Dim szReference As String

  Set db = session.CurrentDatabase
  Set collection = db.UnprocessedDocuments
  Set doc = collection.GetFirstDocument

  Forall r In doc.FolderReferences
    If r = "" Then Goto Empty
    szReference = r & Chr(10) & szReference
  End Forall

  While Not (doc Is Nothing)
    Msgbox "Folder References: " & Chr(10) & Chr(10) & szReference, 64, db.title
    Set doc = collection.GetNextDocument(doc) 'Nächstes Dokument
  Wend
  Exit Sub

  Empty:
  Msgbox „No References in this document….“, 64, db.title
End Sub

Dim session As New notessession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument

Set db = session.CurrentDatabase
Set dc = db.allDocuments
Set doc = dc.GetFirstDocument
Do While Not doc Is Nothing
  If Not doc.FolderReferences(0) = "" Then
    doc.FolderName = doc.FolderReferences
    Call doc.save (False,False)
  End If
  Set doc = dc.GetNextDocument(doc)
Loop

Dim session As New notessession
Dim db As NotesDatabase
Dim uiws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim newuidoc As NotesUIDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument

Set db = session.CurrentDatabase
Set uidoc = uiws.CurrentDocument
Set doc = uidoc.Document
If Not doc.FolderReferences(0) = "" Then
  doc.FolderName = doc.FolderReferences
  Call doc.save (False,False)
End if

Sub Click(Source As Button)
  Dim uiws As New NotesUIWorkspace
  Dim session As New notessession
  Set db = session.CurrentDatabase
  Set dc = db.allDocuments
  Set doc = dc.GetFirstDocument
  Do While Not doc Is Nothing
    If Not doc.FolderReferences(0) = „“ Then
      doc.FolderName = doc.FolderReferences
      Call doc.save (False,False)
    End If
    Set doc = dc.GetNextDocument(doc)
  Loop
  Call uiws.ViewRefresh
End Sub

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim collection As NotesDocumentCollection
  Dim doc As NotesDocument
  Dim item As NotesItem

  Set db = session.CurrentDatabase
  Set collection = db.AllDocuments
  If Not Messagebox ("Do you really want to restore all documents?", 1+32, db.title) = 1 Then Exit Sub
    Set doc = collection.GetFirstDocument()
    While Not (doc Is Nothing)
      If Not doc.FolderName(0) = "" Then
        Set item = doc.GetFirstItem( "FolderName" )
        Forall v In item.Values
          Call doc.PutInFolder (v, True)
        End Forall
      End If
      Set doc = collection.GetNextDocument(doc)
    Wend
  Messagebox "Documents have been restored", 64, db.title
End Sub

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView

  Set db = session.CurrentDatabase
  If Not Messagebox ("Do you really want to delete all folders in this database?", 1+32, db.title) = 1 Then Exit Sub
    Forall v In db.Views
      If v.isFolder Then
        Set view = v
        Call view.Remove
      End If
    End Forall
  Messagebox "Folders have been deleted now.", 64, db.title
End Sub