ActiveX Script en DTS

En tu ActiveXScriptTask puedes usar constantes DTSTransformStatus, como ser
DTSTransformStat_Error y DTSTransformStat_OK

saludos
gux

Gustavo Larriera, MSFT MVP-SQL
Uruguay LatAm

This message is provided "AS IS" with no warranties expressed or implied,
and confers no rights.


"pev" wrote in message
news:00c701c3cbed$5ccbe5a0$
Saludos a Todos!

Tengo una tarea ActiveX Script en VB, la cual controla si
existe un archivo y su tamaño.
El problema que tengo es que cuando el archivo no existe
el DTS se detiene.

Que valor se le debe pasar al MAIN para que el flujo siga
por la flecha On Error (En Caso de Error).

-
Function Main()
Dim fso
Dim f
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("C:\PruebaDts\Ruts.txt")) Then
Set f = fso.GetFile("C:\PruebaDts\Ruts.txt")
If (f.Size = 0) Then
Main = DTSTaskExecResult_Failure
Else
Main = DTSTaskExecResult_Success
End If
Else
Main = DTSTaskExecResult_Failure
End If
End Function
-

Muchas Gracias.

Atte.
pev.