[DTS] flytte en fil og overskrive den gamle

Jeg er ved at lave en dts package der gør følgende:

Importere data fra en fil
flytte denne fil til mappe oldFiles
overskrive den fil der allerede ligger i oldFiles

Jeg har følgende kode for at flytte filen:

Dim oFSO
    Dim sSourceFile
    Dim sDestinationFile

    Set oFSO = CreateObject("Scripting.FileSystemObject")

    sSourceFile = "x:\www\afdelingere.xml"
    sDestinationFile = "x:\www\\OldFiles\afdelingere.xml"

    oFSO.MoveFile sSourceFile, sDestinationFile

    ' Clean Up
    Set oFSO = Nothing

    Main = DTSTaskExecResult_Success

Men den overskriver ikke den gamle fil, den "kaster" en fejl.