' Project Script
Private Sub Batch_BeforeAddDocument(sClassName As String, bCancel As Boolean) 
   sClassName = Project.ClassByID(Project.DefaultClassID).Name 
End Sub 

' Project Script
Private Sub Batch_BeforeAddPage(pXDocInfo As CASCADELib.CscXDocInfo, bCancel As Boolean)
   If pXDocInfo.ExtractionClass = "XYZ" Then
      bCancel = True
   End If 
End Sub 

Reference Microsoft Scripting Runtime used.

' Project Script
Private Sub Batch_AfterAddPage(pXDocInfo As CASCADELib.CscXDocInfo, ByVal PageIndex As Long) 
   Dim FSO As New FileSystemObject 
   FSO.CopyFile(pXDocInfo.Filename(PageIndex), "c:\temp", True)  
End Sub 

Foldering must be activated, and the parent folder object must contain a field with the name "AddedDocumentCount."

' Project Script
Private Sub Batch_AfterAddDocument(pXDocInfo As CASCADELib.CscXDocInfo) 
   Dim nDocCount As Long 
   If
      pXDocInfo.ParentFolder.Fields.Exists("AddedDocumentCount") Then 
      If Len(pXDocInfo.ParentFolder.Fields.ItemByName("AddedDocumentCount").Text) > 0 Then 
         nDocCount = CLng(pXDocInfo.ParentFolder.Fields.ItemByName("AddedDocumentCount").Text)   
      Else 
         nDocCount = 0 
      End If 
      pXDocInfo.ParentFolder.Fields.ItemByName("AddedDocumentCount").Text = nDocCount + 1   
   End If 
End Sub