DTS Error Code : -2147220421

Hello,


I am running a DTS which imports the data from a share location into my database. After whole process an active script runs which rename the input files. For some days this step is failing with the error:


Step 'DTSStep_DTSActiveScriptTask_2' failed

Error Code: -2147220421
Step Error Source: Microsoft Data Transformation Services (DTS) Package
Step Error Description:The task reported failure on execution.
Step Error code: 8004043B
Step Error Help File: sqldts80.hlp
Step Error Help Context ID:1100


This is the active script I am using:


'**********************************************************************
' Visual Basic ActiveX Script
'************************************************************************

Function Main()
On Error Resume Next

Const DBPath = "<File Path>"
Const DBFile = "<File name>"

myYear = DatePart("yyyy", Date)
myMonth = DatePart("m", Date)
myDay = DatePart("d", Date)

If Len(myMonth) < 2 Then
myMonth = "0" & myMonth
End If

If Len(myDay) < 2 Then
myDay = "0" & myDay
End If

NewFile = Left(DBFile, InStr(DBFile, ".") - 1) & "_" & myDay & myMonth & myYear & ".mdb"

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.MoveFile DBPath & DBFile, DBPath & NewFile

Set objFSO = Nothing

If Err.Number = 0 Then
Main = DTSTaskExecResult_Success
Else
Main = DTSTaskExecResult_Failure
End If

End Function

Any idea?

Thanks & Regards,

Dev