Only folders on levels higher than one can be moved.

' Project Script 
Private Sub Batch_BeforeMoveFolder(pXFolder As CASCADELib.CscXFolder, pTargetParentXFolder As CASCADELib.CscXFolder, ByVal TargetFolderIndex As Long, pSrcParentXFolder As CASCADELib.CscXFolder, ByVal SrcFolderIndex As Long, bCancel As Boolean) 
   If pXFolder.Level < 2 Then 
      bCancel = True 
   End If 
End Sub 

Recalculates a sum folder field for both parent folders from the contained child folders if the moved folder is moved to a different parent folder

' Project Script
Private Sub Batch_AfterMoveFolder(pXFolder As CASCADELib.CscXFolder, pTargetParentXFolder As CASCADELib.CscXFolder, ByVal TargetFolderIndex As Long, pSrcParentXFolder As CASCADELib.CscXFolder, ByVal SrcFolderIndex As Long)

   If pSrcParentXFolder.GlobalIndex <> pTargetParentXFolder.GlobalIndex Then 
      Dim n As Long 
      Dim nSum As Long 
      Dim oXFolder As CASCADELib.CscXFolder 
      ' update the source parent folder of the moved folder  
      For n = 0 To pSrcParentXFolder.Folders.Count - 1 
         oXFolder = pSrcParentXFolder.Folders(n) 
         If oXFolder.Fields.Exists("Total") Then 
            nSum = nSum + CLng(oXFolder.Fields.ItemByName("Total").Value) 
         End If 
      Next n 
      If pSrcParentXFolder.Fields.Exists("Total") Then 
         pSrcParentXFolder.Fields.ItemByName("Total").Value = nSum 
      End If 
      ' update the new parent of the moved folder  
      For n = 0 To pTargetParentXFolder.Folders.Count - 1 
         oXFolder = pTargetParentXFolder.Folders(n) 
         If oXFolder.Fields.Exists("Total") Then 
            nSum = nSum + CLng(oXFolder.Fields.ItemByName("Total").Value) 
         End If 
      Next n 

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

End Sub