Function Main()
Dim objFSO
Dim cFilePath
Dim cFileName
cFilePath = "<file path>"
cFileName = "<file name>"
' instantiate the Scripting Object
set objFSO = CreateObject("Scripting.FileSystemObject")
With objFSO
If .FileExists(cFilePath & cFileName) Then
' set on Global Variable that file exists..
End if
End With
Set objFSO = Nothing
Main = DTSTaskExecResult_Success
End Function