Tamanho do arquivo–Visual Basic 2008

 

Segue código que utilizei no SSIS para verificar o tamanho do arquivo. No meu caso precisa verificar se o arquivo gerado possuia informação, senão o mesmo deveria ser deletado.

 

Código para verificação do tamanho do arquivo:

 

' Microsoft SQL Server Integration Services Script Task

' Write scripts using Microsoft Visual Basic 2008.

' The ScriptMain is the entry point class of the script.

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 sReader As StreamReader

Dim strContents As String

sReader = File.OpenText(Dts.Variables("sCaminhoArquivoGerencial").Value & Dts.Variables("sNomeArquivoLote").Value)

strContents = sReader.ReadToEnd()

sReader.Close()

 

If strContents.Length <> 0 Then

    Dts.Variables("sTamanhoArquivo").Value = strContents.Length

Else

     Dts.Variables("sTamanhoArquivo").Value = 0

End If

Dts.TaskResult = ScriptResults.Success

End Sub

End Class

 

Obrigado