The Script Threw An Exception! URGENT

I have a very simple SSIS package which I execute from VB.NET using the ManagedDTS namespace objects. I am getting a very sporadic error saying "The script threw an exception. Object reference not set to an instance of an object"

All the package does is insert rows from a filename that I pass into the package from code, and then rename the file in a script task. The script task is what is causing this error. If I remove/disable the script task the package executes everytime without error. I have even commented out all the code that might throw an exception and it still fails atleast 3 out of 10 times. Here is my code in the script task:


Public Sub Main()

'

' Add your code here

'

Dim e As String = ""

Dim strFileName As String = ""

Dim strDestination As String = ""

Try

'strFileName = Dts.Variables("User::FileName").Value.ToString()

'strDestination = System.IO.Path.ChangeExtension(strFileName, "processed")

'If File.Exists(strFileName) Then

'System.IO.File.Move(strFileName, strDestination)

Dts.TaskResult = Dts.Results.Success

'End If

Catch ex As Exception

e = ex.Message

Dts.TaskResult = Dts.Results.Failure

End Try

'CreateControlFile(strFileName, strDestination, e)
End Sub


NOTE: I never get a package FAILURE as I would if it got into the CATCH block. I believe this is an error being generated from the Package processing engine.

Here is some output from the VB.NET application debug window:

This output's once for every "exception" thrown by each package execution.


A first chance exception of type 'System.NullReferenceException' occurred in VBAssembly

A first chance exception of type 'System.NullReferenceException' occurred in VBAssembly

A first chance exception of type 'System.IO.IOException' occurred in mscorlib.dll



Here is the code I use to execute the package:



Public Function ConsumePackage(ByVal strPath As String, ByVal strPackage As String) As Boolean

Dim bReturn As Boolean = False

Dim pkg As New Package

Dim app As New Application

Dim result As DTSExecResult = DTSExecResult.Failure

Try

pkg = app.LoadPackage(strPackage, Nothing)

Debug.Print("Executing package on file: " + strPath)

pkg.Variables("FileName").Value = strPath



result = pkg.Execute()

If result = DTSExecResult.Failure Or result = DTSExecResult.Canceled Then

For Each d As DtsError In pkg.Errors

ErrorMessage += d.ErrorCode.ToString() + d.Description.ToString() + vbCrLf

Next

Return False

End If

bReturn = True

Catch ex As Exception

bReturn = False

Finally

pkg.Dispose()

pkg = Nothing

app = Nothing

End Try



End Function