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

    Public Sub Main()
        Dim FILETOTEST As String = Dts.Variables("CurrentFileName").Value.ToString()
        Dim FileDate As Date
        If File.Exists(FILETOTEST) Then
            FileDate = File.GetCreationTime(FILETOTEST)
        End If
        If FileDate < Dts.Variables("CurrentFileDateTime").Value.ToString Then
            Dts.Variables("CurrentFileDateTime").Value = FileDate
            Dts.Variables("OldestFileName").Value = Dts.Variables("CurrentFileName").Value.ToString()
        End If

        Dts.TaskResult = ScriptResults.Success