----------------------------------------------------------------------------------------------------------
-- Name: FileFindtest.lua
-- Author: Intellipool AB
-- Version: 1.0
-- Date: 2006-03-03
-- Description: Checks the existence of a file in a directory
-- Arguments:
-- Directory path
-- Name of File
----------------------------------------------------------------------------------------------------------

-- User must supply path and name of file
iArgumentCount = GetArgumentCount()
if iArgumentCount < 2 then
  SetExitStatus("To few arguments",false)
  return
end

-- Get path and max number of files
sFilePath = GetArgument(0)
sFileName = GetArgument(1)

file = TLuaFile:new()
sFileList = file:GetFileList(sFilePath ,sFileName)

-- Do "test"
if sFileList == "" then
    SetExitStatus("File not found",false);
else
    SetExitStatus("Test ok",true);
end