Aron's Tech Blog

Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Runtime
Imports System.IO

<System.AddIn.AddIn("ScriptMain", Version:="1.0", Publisher:="", Description:="")> _
<System.CLSCompliantAttribute(False)> _
Partial Public Class ScriptMain
 Inherits Microsoft.SqlServer.Dts.Tasks.ScriptTask.VSTARTScriptObjectModelBase

Enum ScriptResults
 Success = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Success
 Failure = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Failure
 End Enum

Public Sub Main()

Dim sOriginalFile, sArchivedFile, sDate As String

sOriginalFile = "C:\Taleo\TCC\Prod\Export\Requisition\Requisition.csv"
 sDate = Year(Date.Today()).ToString() & Right("0" & Month(Date.Today()), 2) & Right("0" & Microsoft.VisualBasic.DateAndTime.Day(Date.Today()), 2) & "_" & Hour(Now) & "_" & Minute(Now) & "_" & Second(Now)
 sArchivedFile = "C:\Taleo\TCC\Prod\Export\Requisition\Archive\ReqExport\Requisition-" & sDate & ".csv"

File.Move(sOriginalFile, sArchivedFile)

Dts.TaskResult = ScriptResults.Success
 End Sub

End Class