Documentation Center

PassoloApp.BeforeGenerateTarget

Event handler for the before generate target file event.

Syntax

BeforeGenerateTarget (TransList as PslTransList, Abort as Boolean) as void

TransList the translation list to be used for generating the target file

Abort Setting this value to True aborts the current 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