Documentation Center

PassoloApp.AfterGenerateTarget

Event handler for the after generate target file event.

Syntax

AfterGenerateTarget (TransList as PslTransList, ByVal Error as Boolean) as void

TransList The translation list of the target generation

Error Set to True, if an error occurred during the operation.

Example

Dim stored_size As Long
Public Sub PSL_BeforeGenerateTarget(TransList As PslTransList, Abort As Boolean)
  stored_size = 0
  On Error Resume Next ' Maybe the file does not exist yet
  stored_size = FileLen(TransList.TargetFile)
End Sub

Public Sub PSL_AfterGenerateTarget(TransList As PslTransList, ByVal Error As Boolean)
  If Not Error And stored_size <> 0 Then
    diff = FileLen(TransList.TargetFile) - stored_size
  
    If diff = 0 Then
      PSL.Output "Size of target file did not change."
    ElseIf diff > 0 Then
      PSL.Output "Target file increased by " & Str(diff) & " bytes."
    Else
      PSL.Output "Target file decreased by " & Str(-diff) & " bytes."
    End If
  End If
End Sub