Hello Everyone I have a script from sqldts.com in I will like to use to check a file size.
'************************************************* *********************
' Visual Basic ActiveX Script
'************************************************* ***********************
' File Size
Option Explicit

Function Main()

    Dim oFSO
    Dim oFile
    Dim sSourceFile

    Set oFSO = CreateObject("Scripting.FileSystemObject")

    sSourceFile = DTSGlobalVariables("SourceFileName").Value

    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 = Nothing
End Function

The Global Vairiable for 'SourceFileName'=\\myserver\C$\inetpub\ftprootfor 'sourceFile'=\\myserver\C$\inetpub\ftproot\upfile

I receive error description: error code=0
          error source: Microsoft VBSCRIPT Run Time Error
          error description :Invalid procedure call or argument

          Error code 16

Can anybody help with these errors or check for format

__________________
Jaime E. Maccou

Hey,

What line is the error on?

Brian

The error is on this line: Set oFile = oFSO.GetFile(sSourceFile)

I found an answer

'************************************************* *********************
' Visual Basic ActiveX Script
'************************************************* ***********************
' File Size
Option Explicit

Function Main()

    Dim oFSO
    Dim oFile
    Dim sSourceFile

    Set oFSO = CreateObject("Scripting.FileSystemObject")

    sSourceFile = DTSGlobalVariables("SourceFileName").Value

    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 = Nothing
End Function

I changed this section
Function Main()

    Dim oFSO
    Dim oFile
    Dim sSourceFile

    Set oFSO = CreateObject("Scripting.FileSystemObject")

    sSourceFile = DTSGlobalVariables("SourceFileName").Value

    Set oFile = oFSO.GetFile(sSourceFile)

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

to this
Function Main()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("\\myserver\C$\inetpub\ftproot\upfi le")

If objFile.Size >0 Then
main = DTSTaskExecResult_success
else
main = DTSTaskExecResult_failure
end if
End Function