Split a folder

The following diagram shows the sequence of events initiated by the user request to split a folder. In the BeforeSplitFolder event, the user interaction can be canceled. To verify if the opening module is the current module please use the property Project.ScriptExecutionMode.

Note If you split a document the corresponding folder CSS XValues starting with AC_CSS_ are not copied to the newly created folder whereas document and page CSS are kept. If needed, you can use the AfterSplitFolder event to copy them from the folder that was split.

A visual representation of the Split Folder event sequence.

The splitting of a folder is executed only for folders that are on level one.

' Project Script 
Private Sub Batch_BeforeSplitFolder(pSrcXFolder As CASCADELib.CscXFolder, ByVal DocumentIndex As Long, bCancel As Boolean) 
   If pSrcXFolder.Level > 1 Then 
      bCancel = True  
   End If 
End Sub

Recalculates a sum from a folder field from all child folders for the first original folder and the new second one.

' Project Script
Private Sub Batch_AfterSplitFolder(pFirstXFolder As CASCADELib.CscXFolder, pSecondXFolder As CASCADELib.CscXFolder) 
   Dim n As Long 
   Dim nSum As Long 
   Dim oXFolder As CASCADELib.CscXFolder 
   ' update the first folder from its child folders  
   For n = 0 To pFirstXFolder.Folders.Count - 1 
      oXFolder = pFirstXFolder.Folders(n) 
      If oXFolder.Fields.Exists("Total") Then 
         nSum = nSum + CLng(oXFolder.Fields.ItemByName("Total").Value) 
      End If 
   Next n

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

   ' update the second folder from its child folders  
   For n = 0 To pSecondXFolder.Folders.Count - 1 
      oXFolder = pSecondXFolder.Folders(n) 
      If oXFolder.Fields.Exists("Total") Then 
         nSum = nSum + CLng(oXFolder.Fields.ItemByName("Total").Value) 
      End If 
   Next n 

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

End Sub

Your search for returned results.

Search tips

Split a folder