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 oReader As StreamReader
 Dim intLines As Integer
 Dim strLines As String

Dts.TaskResult = ScriptResults.Success
 intLines = 0
 strLines = ""
 oReader = New StreamReader("C:\Taleo\TCC\Prod\Export\Requisition\Requisition.csv")
 Do While Not oReader.EndOfStream
 strLines = oReader.ReadLine()
 intLines = intLines + 1
 Loop
 oReader.Close()
 oReader = Nothing
 If intLines < 2 Then
 File.Delete("C:\Taleo\TCC\Prod\Export\Requisition\Requisition.csv")
 Dts.TaskResult = ScriptResults.Failure

End If

End Sub

End Class