quote:

---

Error Code: 0
Error Source: Microsoft VBScript runtime error
Error Description: Object doesn't support this property or method: 'wscript.sleep'

Error on Line 10

---

'**********************************************************************
'  Main
'************************************************************************

Function Main()

	dim wscript
	set wscript = createobject("wscript.shell")

	while CheckFileExists("d:\test\test.txt") = False
		wscript.sleep 5000
	wend
		Main = DTSTaskExecResult_Success

End Function


'**********************************************************************
'  CheckFileExists
'************************************************************************

Function CheckFileExists(sFileName)

	Dim FileSystemObject

	Set FileSystemObject = CreateObject("Scripting.FileSystemObject")

	If (FileSystemObject.FileExists(sFileName)) Then
		If (CheckFileDate(sFileName,FileSystemObject) = True) Then
			CheckFileExists = True
		Else
			CheckFileExists = False
		End If
	Else
		CheckFileExists = False
	End If

	Set FileSystemObject = Nothing

End Function

'**********************************************************************
'  CheckFileDate
'************************************************************************

Function CheckFileDate(sFileName, objFSO)

	Dim theFile, theDate

	Set theFile = objFSO.GetFile(sFileName)
	theDate = theFile.DateCreated

	If (DateDiff("h", theDate, Now) < 24) Then
		CheckFileDate = True
	Else
		CheckFileDate = False
	End If

	Set theDate = Nothing
	Set theFile = Nothing

End Function

alter proc usp_WaitForFiles
    @Filename       varchar(255),
    @Path           varchar(255),
    @IntervalMins   tinyint           = 5,
    @TotalWaitHours tinyint           = 6
as
set nocount on
/******************************************************************************
*    Locals
******************************************************************************/
declare
    @EndTime      datetime,
    @FileExistOut int,
    @CmdShellRet  int,
    @WaitForTime  datetime,
    @Cmd          varchar(80),
    @File         varchar(510),
    @ErrTxt       varchar(100)

select
    @EndTime      = dateadd(hh,@TotalWaitHours,getdate()),
    @File         = @Path + @Filename

/******************************************************************************
*    File Exists Logic
******************************************************************************/
exec master..xp_FileExist @File, @FileExistOut OUT

while @FileExistOut = 0 and
      @EndTime > getdate()
begin
    select @WaitForTime = dateadd(mi, @IntervalMins, getdate())
    waitfor time @WaitForTime
    exec master..xp_FileExist @File, @FileExistOut OUT
end

-- Time check
if not (@EndTime > getdate())
begin
    select @ErrTxt = 'Exceeded total wait time for file ' + @File
    raiserror(@ErrTxt,10,1)
    return
end

/******************************************************************************
*    File Ready Logic
******************************************************************************/
select @Cmd = 'ren ' + @File + ' ' + @Filename + '.recieved'
exec @CmdShellRet = master..xp_cmdshell @Cmd, NO_OUTPUT

while @CmdShellRet = 1 and
      @EndTime > getdate()
begin
    select @WaitForTime = dateadd(ss, 10, getdate())
    waitfor time @WaitForTime
    exec @CmdShellRet = master..xp_cmdshell @Cmd, NO_OUTPUT
end

-- Time check
if not (@EndTime > getdate())
begin
    select @ErrTxt = 'Exceeded total wait time during copoy of file ' + @File
    raiserror(@ErrTxt,10,1)
    return
end

select @Cmd = 'ren ' + @File + '.recieved ' + @filename
exec @CmdShellRet = master..xp_cmdshell @Cmd, NO_OUTPUT

-- Rename Error Handler
if @CmdShellRet = 1
begin
    select @ErrTxt = 'Error renaming file ' + @File
    raiserror(@ErrTxt,10,1)
    return
end

return
go