"NickName" <dadada@rock.com> wrote in message
news:1102971903.347486.145350@f14g2000cwb.googlegroups.com...
> Env: SQL Server 2000 on in WIN NT 5.x
> Job: import mutiple flat files into several tables daily.
> Catch: one or two of the several flat files might be empty.
>
> First thought/test:
> Use [first row as fields] option for the import process.
> Problem, DTS can't complete (as a package).
>
> As an alternative, I could probably detect if a file is empty then
> decide what to do with it, with VB activeX, it might be feasible,
> question, VB has a command for "FileExist", how about "FileLen" or the
> like for determining the length of a file?
>
> TIA.
>

"NickName" <dadada@rock.com> wrote in message
news:1103038306.437005.86870@f14g2000cwb.googlegroups.com...
> Very helpful. Thank you. However, activeX problem, error obj "string
> C:\myDir\file1.csv" required, the code seems to be correct.
>
> ' File Size
> ' check file size if empty | 0 quit
>
> Option Explicit
>
> Function Main()
>
> Dim oFSO
> Dim oFile
> Dim sSourceFile
>
> Set oFSO = CreateObject("Scripting.FileSystemObject")
>
> Set sSourceFile = "C:\myDir\file1.csv"
>
> Set sSourceFileV = sSourceFile.Value
>
> Set oFile = oFSO.GetFile(sSourceFileV)
>
> If oFile.Size > 0 Then
> Main = DTSTaskExecResult_Success
> Else
> Main = DTSTaskExecResult_Failure
> End If
> ' Clean Up
> Set oFile = Nothing
> Set oFSO = Nothing
> End Function
>