[dba-SQLServer] Active Script Task in DTS

In DTS designer, I added an Active Script Task to my DTS package as the last
step.
This task is supposed to move a text file from one location to another.
I am trying to do this with the code below but I get a permission denied
error.

Function Main()
	Dim fso
	Set fso = CreateObject("Scripting.FileSystemObject")
	fso.MoveFile "E:\ftp\bom.txt", "E:\ftp\pub\"
	Set fso = Nothing
	Main = DTSTaskExecResult_Success
End Function

I check the folder permissions and the Everyone group has full control over
these folders.
Any ideas?

Thanks!
JR




This electronic transmission is strictly confidential to TNCO, Inc. and
intended solely for the addressee. It may contain information which is
covered by legal, professional, or other privileges. If you are not the
intended addressee, or someone authorized by the intended addressee to
receive transmissions on behalf of the addressee, you must not retain,
disclose in any form, copy, or take any action in reliance on this
transmission. If you have received this transmission in error, please notify
the sender as soon as possible and destroy this message. While TNCO, Inc.
uses virus protection, the recipient should check this email and any
attachments for the presence of viruses. TNCO, Inc. accepts no liability for
any damage caused by any virus transmitted by this email.