Hello,

I am trying to write a vb script that would check
not one but the existence of two files before it goes into
the next dtstask.

I tried to use dtsglobalvariables, but is the same problem
as if i have before with the function below:


Function Main()
Main = CheckFile(FILE1,FILE2)


End Function


Function CheckFile(sFileName1, sFileName2)
Dim fso

Set fso = CreateObject
("Scripting.FileSystemObject")
If (fso.FileExists(sFileName1,sFileName2)) Then
CheckFile = DTSTaskExecResult_Success
Else
CheckFile = DTSTaskExecResult_Failure
End If
Set fso = Nothing
End Function

This does not work, I got an error on the vb script
dtstask,

any help is very welcome!!! thanks

OK

I cannot find or remember that FileExists takes two - n filenames as
arguments

When you figure that part out I would have the function return like this

if == found

CheckFile = CBool(True)

if != Found

CheckFile ==CBool(False)


not

CheckFile = DTSTaskExecResult_Success and
CheckFile = DTSTaskExecResult_Failure


--
--

Allan Mitchell MCSE,MCDBA, (Microsoft SQL Server MVP)
www.SQLDTS.com - The site for all your DTS needs.
www.konesans.com - Consultancy from the people who know


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

If you check the syntax for FileExists it only accepts one parameter.
http://msdn.microsoft.com/library/de...fileexists.asp



Function CheckFile(sFileName1, sFileName2)
Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(sFileName1) And fso.FileExists(sFileName2) Then
CheckFile = DTSTaskExecResult_Success
Else
CheckFile = DTSTaskExecResult_Failure
End If
Set fso = Nothing
End Function


--
Darren Green
http://www.sqldts.com

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

it works beautifully!!
thanks a lot Darren, Allan

Just one word though.

Do you really want to return a failure because a file does not exist? Why
not handle things gracefully because let's face it the thing didn't fail per
se did it?

--
--

Allan Mitchell MCSE,MCDBA, (Microsoft SQL Server MVP)
www.SQLDTS.com - The site for all your DTS needs.
www.konesans.com - Consultancy from the people who know


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