Flat File Source Patterns - SQL Server Integration Services Design Patterns - page 224

Dts.Events.FireError(1001, sSubComponent,
ex.Message, "", 0)
End Try
' 5: log information
sMsg = "DateStampFormat: " & sDateStampFormat &
ControlChars.CrLf & _
ControlChars.CrLf & _
"ExceptionOnFileNotFound: " &
bExceptionOnFileNotFound.ToString & _
ControlChars.CrLf & ControlChars.CrLf & _
"CopyOnly: " & bCopyOnly.ToString &
ControlChars.CrLf & ControlChars.CrLf & _
"OkToProceed: " &
Dts.Variables("OkToProceed").Value.ToString & _
ControlChars.CrLf & ControlChars.CrLf & _
"SourceFileDirectory: " &
sSourceFileDirectory & ControlChars.CrLf & _
ControlChars.CrLf & _
"FileName: " & sFileName &
ControlChars.CrLf & ControlChars.CrLf & _
"Extension: " & sExtension &
ControlChars.CrLf & ControlChars.CrLf & _
"BaseFileName: " & sBaseFileName &
ControlChars.CrLf & ControlChars.CrLf & _
"FormattedFileName: " & sFormattedFileName
& ControlChars.CrLf & _
ControlChars.CrLf & _
"WorkingCopyFileName: " &
sWorkingCopyFileName & ControlChars.CrLf & _
ControlChars.CrLf
If bDebug Then MsgBox(sMsg, MsgBoxStyle.OkOnly,
sSubComponent)
Dts.Events.FireInformation(2001, sSubComponent,
sMsg, "", 0, True)
' 6: output