Script Does Not Want To Update A Variable...

I wonder why this script IS NOT UPDATING the user-def variable varFileName (package-scoped) and I do not get any errors when running the package at all.


Dim strRow As String = Row.Column0.Trim()

Dim strConn As String = ""

Dim strFolder As String = "D:data"

Dim strFileName As String = ""


If Mid(strRow.ToLower(), 1, 2) = "d0" Then


' We have a file name.

strFileName = strRow

Row.Column0 = ""

strConn = strFolder + strFileName + ".csv"


Dim variables As IDTSVariables90 = Nothing

' Lock the var that stores the connection

' string for write

VariableDispenser.LockOneForWrite("User::varFileName", variables)

' Write to the var. This is where the connection should change.

variables(0).Value = strConn

' Determine whether the variable

' collection is locked before unlocking.

Dim isLocked As Boolean = variables.Locked

' Verify the value of variables.Locked.

' If the lock failed, call Reset.

If isLocked Then


variables.Unlock()

Else


VariableDispenser.Reset()

End If

Else


Dim charSep() As Char = {CChar(" ")}

Row.Column0 = String.Join(",", strRow.Split(charSep, System.StringSplitOptions.RemoveEmptyEntries))

End If