All content (copyright) respective authorsCode bookmark tagged with dtshttp://www.codaddict.com/tag/dtsInstead of DTSGlobalVarialbes("gVar"), put DTSGlobalVarialbes("gVar").Valuehttp://www.codaddict.com/vmonpara/SQL ServervmonparaMon, 13 Aug 2007 03:34:02 GMTCREATE FUNCTION [dbo].[fn_FileExists] (@FileName nvarchar(255))
RETURNS bit AS
BEGIN
DECLARE @FS int
DECLARE @FileID int
DECLARE @OLEResult int
declare @Exists bit

EXECUTE @OLEResult = sp_OACreate 'Scripting.FileSystemObject', @FS OUT
IF @OLEResult <> 0
BEGIN
RETURN 0
END

EXECUTE @OLEResult = sp_OAMethod @FS, 'FileExists', @Exists OUT, @FileName

IF @OLEResult <> 0
BEGIN
return 0
END
EXECUTE @OLEResult = sp_OADestroy @FS

return @Exists

ENDhttp://www.codaddict.com/vmonpara/SQL ServervmonparaSun, 12 Aug 2007 08:16:31 GMTDim fso, file1
Dim pkg
SET pkg = DTSGlobalVariables.Parent

Set fso = CreateObject("Scripting.FileSystemObject")

IF (fso.FileExists("c:\abc.txt")) THEN
Msgbox "File exist. Continue"
pkg.Steps("DTSStep_DTSActiveScriptTask_2").DisableStep=False

Set fso= Nothing

ELSE
Msgbox "Stop"
pkg.Steps("DTSStep_DTSActiveScriptTask_2").DisableStep=True
END IF
set pkg=nothing
Main = DTSTaskExecResult_Successhttp://www.codaddict.com/vmonpara/SQL ServervmonparaSun, 12 Aug 2007 08:14:11 GMT