Allows folder creation with only one or two documents on level one.

' Project Script
Private Sub Batch_BeforeCreateFolder(pNewXFolder As CASCADELib.CscXFolder, ByVal TotalDocumentCount As Long, bCancel As Boolean) 
   If TotalDocumentCount > 2 Or pNewXFolder.Level <> 1 Then        bCancel = True 
   End If 
End Sub 

Calculates the sum of a specific field from all documents and assigns the value a field of the new folder.

' Project Script
Private Sub Batch_AfterCreateFolder(pNewXFolder As CASCADELib.CscXFolder) 
   Dim n As Long 
   Dim oXDocInfo As CASCADELib.CscXDocInfo 
   Dim Sum As Long

   Sum = 0 

   For n = 0 To pNewXFolder.DocInfos.Count - 1 
      If oXDocInfo.XDocument.Fields.Exists("Total") Then 
         Sum = Sum + CLng(oXDocInfo.XDocument.Fields.ItemByName("Total").Value) 
      End If 
   Next n  
   If pNewXFolder.Fields.Exists("Total") Then 
      pNewXFolder.Fields.ItemByName("Total").Value = Sum 
   End If 

End Sub