How to write a Map After Success script to move and rename a text file used as a data source

Create a Map After Success script. This script moves the file from 1 directory into another and also appends the current date to it. You will need to modify the pathnames and source file name.
Dim dateTimeInfo as DateTime = DateTime.Now
Dim dateString as String = dateTimeInfo.ToString("MMddyy")
Dim sourcefile as string = "C:\SmartConnect\Sample Files\Fixed_Asset_General.csv"
Dim destfile as string = "C:\SmartConnect\Sample Files\Archive\Fixed_Asset_General" + dateString + ".csv"
File.Move(sourcefile,destfile)
return true