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 :D

[Imagine Programming]

Solved the problem :D

Isn't reading the helpfile a joy? :yes :D