' Project Script
Private Sub Batch_BeforeMergeFolder(pFirstXFolder As CASCADELib.CscXFolder, pSecondXFolder As CASCADELib.CscXFolder, bCancel As Boolean) 
   If pFirstXFolder.Level < 2 Then 
      bCancel = True 
   End If 
End Sub 

' Project Script
Private Sub Batch_AfterMergeFolder(pMergedXFolder As CASCADELib.CscXDocInfo, ByVal MergedDocumentIndex As Long) 
   Dim n As Long 
   Dim nSum As Long 
   Dim oXDocInfo As CASCADELib.CscXDocInfo 

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

   If pMergedXFolder.Fields.Exists("Total") Then 
      pMergedXFolder.Fields.ItemByName("Total").Value = nSum    End If

End Sub