I tried to create a DTS package to import data from a Excel file then rename
the source file.
The step for importing data is ok, but the rename script cause VB runtime
error: no access right.

I used this script to rename the file

Function Main()
Set fs = CreateObject("Scripting.FileSystemObject")
fs.MoveFile "c:\TestDTS\Product.xls", "c:\TestDTS\Producta.xls"
Main = DTSTaskExecResult_Success
End Function

If i execute this step separately it is ok, when it cause problem when i
execute the package.

Anyone help?

Thanks in advance,
Jason