----------------------------------------------------------------------------------------------------------
-- Name: Filecounter.lua
-- Author: Intellipool AB
-- Version: 1.0
-- Date: 2006-03-03
-- Description: Counts number of files in a directory
-- Arguments:
-- Directory path
-- Max number of files
----------------------------------------------------------------------------------------------------------

-- User must supply path and max number of files in directory
iArgumentCount = GetArgumentCount()
if iArgumentCount < 2 then
  SetExitStatus("To few arguments",false)
  return
end

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

file = TLuaFile:new()
sFileList = file:GetFileList(sFilePath ,"*.*")

-- "count" files,string returned will contain all files in the directory, separated by CR
iLen = string.len(sFileList);
iFileCount =0
for count = 0, iLen do
    cCurrentChar = string.byte(sFileList,count);
    if cCurrentChar == 10 then
 iFileCount = iFileCount +1;
    end
end
file:Close();

-- Do "test"
print(iFileCount);
if iFileCount < iMaxNumberOfFiles then
    SetExitStatus("Test ok",true);
else
    SetExitStatus("More files in directory then allowed",false);
end

----------------------------------------------------------------------------------------------------------
-- Name: Filecounter.lua
-- Authors: Eric Strauss
-- Version: 1.1
-- Date: 2006-03-06
-- Description: Counts number of files in a directory
-- Arguments:
-- Directory path
-- Max number of files
-- Separate args with spaces
-- Unix filesystem "/" not "\"
----------------------------------------------------------------------------------------------------------

-- User must supply path and max number of files in directory
iArgumentCount = GetArgumentCount()
if iArgumentCount < 2 then
   SetExitStatus("To few arguments",false)
   return
end

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

file = TLuaFile:new()
sFileList = file:GetFileList(sFilePath ,"*.*")

-- "count" files,string returned will contain all files in the directory, separated by CR
iLen = string.len(sFileList);
iFileCount =0
for count = 0, iLen do
   cCurrentChar = string.byte(sFileList,count);
   if cCurrentChar == 10 then
      iFileCount = iFileCount +1;
   end
end
file:Close();

-- Write stats
StoreStatisticalData(0,iFileCount,iMaxNumberOfFiles,"Files");

-- Do "test"
print(iFileCount);
if iFileCount < iMaxNumberOfFiles then    
   SetExitStatus("Test OK, Files: ".. tostring(iFileCount).." of "..tostring(iMaxNumberOfFiles),true);  
else
   SetExitStatus("Too Many Files: ".. tostring(iFileCount).." of "..tostring(iMaxNumberOfFiles),false);
end