Script task to move multiple files to Archive Folder

Hi All

I am new to SSIS,I want to move a file from one folder to another folder with current date attached to it. I am also putting the code that I have tried till now in SCRIPT TASK and this code works fine for moving single file.

But currently my situation is to move MULTIPLE files in the folder to another folder,

How can i resolve this

Any help Would be great.

Thanks

Vinesh

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)> _

PartialPublicClass ScriptMain

   Inherits Microsoft.SqlServer.Dts.Tasks.ScriptTask.VSTARTScriptObjectModelBase

    Enum ScriptResults

        Success = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Success

        Failure = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Failure

   EndEnum

    ' The execution engine calls this method when the task executes.

   ' To access the object model, use the Dts object. Connections, variables, events,

   ' and logging features are available as static members of the Dts class.

   ' Before returning from this method, set the value of Dts.TaskResult to indicate success or failure.

    ' To open Code and Text Editor Help, press F1.

   ' To open Object Browser, press Ctrl+Alt+J.

    PublicSub Main()

        Dim SourceFile AsString

       Dim DestinationFile AsString

         SourceFile ="\\ccs-ver\CCS\VINESH\SSIS\ORGDATA\Template1.csv"

        DestinationFile ="\\ccs-ver\CCS\VINESH\Archive\Template1_"+Date.Now.ToString("yyyyMMddhhmm") +".csv"

        If File.Exists("\\ccs-ver\CCS\VINESH\SSIS\ORGDATA\Template1.csv")Then

            File.Move(SourceFile, DestinationFile)

        EndIf

         Dts.TaskResult = DTSExecResult.Success

   EndSub

 End Class