Here is a variation of the above if you want to control the move more precisely by separating the copy and delete portions into separate ActiveX tasks.
ActiveX Task 1:
'**********************************************************************
' Visual Basic ActiveX Script
'************************************************************************
Function Main()
Orig_FileNm = "C:\SourceFile.txt"
Dest_FileNm = "C:\Folder\DestinationFile.txt"
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
IF (fso.FileExists(Orig_FileNm)) THEN
fso.CopyFile Orig_FileNm, Dest_FileNm, true
END IF
Main = DTSTaskExecResult_Success
End Function
ActiveX Task 2:
'**********************************************************************
' Visual Basic ActiveX Script
'************************************************************************
Function Main()
Orig_FileNm = "C:\SourceFile.txt"
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
IF (fso.FileExists(Orig_FileNm)) THEN
fso.DeleteFile(Orig_FileNm)
END IF
Main = DTSTaskExecResult_Success
End Function