Hi All,

I have a DTS package that 1) Goes to an FTP site, 2) Copied a file to a
directory, 3) Loads the file into a sql database. 4) renames the file and
saves it to a different directory....

Background : Each time the DTS package copies a 0 byte file, the load
fails..OK no problem. But I have failures setup to page me...A file is loaded
every 2hours....If it's 0 byte file, that's OK, because the package fails and
doens't load...My question: Is there any code that I can use to maybe send an
email on a 0 byte file, but not page me? I do want to know of load failures,
but to me the 0 byte file is not a failure???

Thanks,

Warren

Warren,

You should be able to use the FileSystemObject to determine the size of
your file.
' Copy File
Option Explicit
Function Main()

Dim oFSO
Dim oFile
Dim sSourceFile

Set oFSO = CreateObject("Scripting.FileSystemObject")

sSourceFile = 'c:\test.txt'
Set oFile = oFSO.GetFile(sSourceFile)

If oFile.Size > 0 Then
Main = DTSTaskExecResult_Success
Else
Main = DTSTaskExecResult_Failure
End If

' Clean Up
Set oFile = Nothing
Set oFSO = NothingEnd FunctionRodney Mullinsrodney_mullins (AT) msn (DOT) com"Warren"
<Warren (AT) discussions (DOT) microsoft.com> wrote

also, the sample code that I provided can be found at:
www.sqldts.com

"Warren" <Warren (AT) discussions (DOT) microsoft.com> wrote

Thanks Rodney,

I will try that...

Warren

"Rodney Mullins" wrote:

Dear Rodney,

The code you sent does work but doesn't do exactly what I want. The part
that fails if the byte size is less than zero fails the package also which
sends a page. I'm trying to get the script to say , OK > than zero, sucess,
now load the file...If < than zero, do nothing, don't fail the package or go
to the next step (which is load the file).

Thanks,

Warren

"Rodney Mullins" wrote:

Dear Rodney,

I got it figured out by using the DTS site you provided ...Thanks!

Warren

"Warren" wrote: