VBScript runtime error Permission Denied, Error: 800403FE

[John Units]

DTS 7.0 sp3

I have a package that loads staging tables from flat files. The last step
in the package is an active x task that deletes the flat files. This last
step deletes 7 out of 10 files before failing. The error messages and code
are included below. If I copy the active x task into a separate package by
itself it deletes all 10 of the files and completes successfully. Has
anyone seen this before? Anybody know a possible reason for this? Any
suggestions on how to debug this problem?

Thanks in advance,
John

*********************************************
Error message
*********************************************
Step Error Source: Microsoft Data Transformation Services (DTS) Package
Step Error Description:Error Code: 0
Error Source= Microsoft VBScript runtime error
Error Description: Permission denied

Error on Line 17

Step Error code: 800403FE
Step Error Help File:sqldts.hlp
Step Error Help Context ID:1100

*********************************************
Code
*********************************************
Function Main()
Dim fso, fldr, fc, fil
Dim strInputFolder, strFileName

strInputFolder = "d:\data\input"

Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder(strInputFolder)
Set fc = fldr.files

for each fil in fc
strFileName = fil.Name
if Instr(strFileName, "clburd") > 0 and Instr(strFileName, ".jls") > 0
then
fil.delete
end if
next

Main = DTSTaskExecResult_Success
End Function

[John Units]

The datapump task for one of the files did not have the close connection on
completion workflow property selected. I assume that the text file
connection had still had the file open and therefore the active x script
could not delete the file.

"John Units" <john....@jlspecialty.com> wrote in message
news:evLmsmq6AHA.1380@tkmsftngp04...