all xmls from folder to menubar

[jackdaniels]

What am I doing wrong here ?

function SetMenu()
	tblMenu = {};
	tblMenu[1] ={};
	tblMenu[1].Text = "&File";
	tblMenu[1].ID = 100;
	tblMenu[1].Checked = false;
	tblMenu[1].Enabled = true;
	tblMenu[1].SubMenu = {};
	tblMenu[1].SubMenu[1] = {};
	tblMenu[1].SubMenu[1].Text = "1";
	tblMenu[1].SubMenu[1].ID = 101;
	tblMenu[1].SubMenu[1].Checked = false;
	tblMenu[1].SubMenu[1].Enabled = true;
	tblMenu[1].SubMenu[2] = {};
	tblMenu[1].SubMenu[2].Text = "2";
	tblMenu[1].SubMenu[2].ID = 102;
	tblMenu[1].SubMenu[2].Checked = false;
	tblMenu[1].SubMenu[2].Enabled = true;
	tblMenu[1].SubMenu[3] = {};
	tblMenu[1].SubMenu[3].Text = "3";
	tblMenu[1].SubMenu[3].ID = 0;
	tblMenu[1].SubMenu[3].Checked = false;
	tblMenu[1].SubMenu[3].Enabled = true;
    tblMenu[1].SubMenu[3].SubMenu = {};

	local tFiles = File.Find( _SystemFolder, "*.xml");
	local x = 0;
	for x = 1,Table.Count(tFiles) do
				tblMenu[1].SubMenu[3].SubMenu[x] = {};
				tblMenu[1].SubMenu[3].SubMenu[x].Text = tFiles[x];
				tblMenu[1].SubMenu[3].SubMenu[x].ID = 3000+x;
				tblMenu[1].SubMenu[3].SubMenu[x].Checked = false;
				tblMenu[1].SubMenu[3].SubMenu[x].Enabled = true;
				x=x+1
	end	
end


Application.SetMenu(tblMenu);

Thanks in Advance

[jackdaniels]

Well I managed it but when I try to set string lenght, I get error !!! I just want to show name not the full path !!!

tblMenu[3].SubMenu[4] ={};
tblMenu[3].SubMenu[4].Text = "&Apps";
tblMenu[3].SubMenu[4].ID = 304;
tblMenu[3].SubMenu[4].Checked = false;
tblMenu[3].SubMenu[4].Enabled = true;
tblMenu[3].SubMenu[4].SubMenu = {};

local tFiles = File.Find("AutoPlay\\Docs\\Free", "*.xml");
sLength = String.Length(tFiles)  
sStartPos = String.ReverseFind(tFiles, "\\", true) 
shortName  = String.Mid(tFiles,  sStartPos +1, sLength)
local x = 0;
for x = 1,Table.Count(shortName) do
	tblMenu[3].SubMenu[4].SubMenu[x] = {};
	tblMenu[3].SubMenu[4].SubMenu[x].Text = shortName[x];
	tblMenu[3].SubMenu[4].SubMenu[x].ID = 34+x;
	tblMenu[3].SubMenu[4].SubMenu[x].Checked = false;
	tblMenu[3].SubMenu[4].SubMenu[x].Enabled = true;
end

[jackdaniels]

Solved the problem

[Imagine Programming]

Solved the problem

Isn't reading the helpfile a joy?