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