-- CallChannel function is called when channel is called
function searchDirAndFiles(iDirPath)
	local currentValue = channel.GetChild(1)
	local currentDir = channel.GetChild(2)
	local dirOrFiles = channel.GetChild(3)
	local update = channel.GetChild(4)
	local nxItems = channel.GetChild(5)
	local nameOfItem = channel.GetChild(6)
	local result = {{},{}} --(folders,files)
	currentDir:SetText(iDirPath)
	update:CallChannel()

--fileList
	dirOrFiles:SetValue(0) --searchFiles
	local files = nxItems:GetValue()
	currentValue:SetValue(0)
	local i = 0
	while i<files do
		result[1][i+1] = iDirPath..'\\'..nameOfItem:GetText()
		i = 1 + i
		currentValue:SetValue(i)
	end
--createDirList

	dirOrFiles:SetValue(1) --searchDirs
	local folders = nxItems:GetValue()
	currentValue:SetValue(0)
	local j = 0
	while j<folders do
	result[2][j+1] = iDirPath..'\\'..nameOfItem:GetText()
		j = 1 + j
		currentValue:SetValue(j)
	end
	return result
end

function createFileList(iFsList)
	local result=''
	for i,v in pairs(iFsList[1]) do 
			result = result..iFsList[1][i]..'\r\n'
	end
	for j,v in pairs(iFsList[2]) do 
			result = result..iFsList[2][j]..'\r\n'
	end	
	return result
end

function CallChannel()
--input data
	local path = channel.GetChild(0):GetText()

--out data
	local result = channel.GetChild(7)
	if path ~= '' then
	local lFsList = searchDirAndFiles(path)
	local fileList = createFileList(lFsList)
	result:SetText(fileList)
	end
end

-- GetValue function is called when this channels is used as Value
function GetValue()
	return -1
end