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