i wanna show only name and extension or just name !!!!
Code:
myDocsFolder = Shell.GetFolder(SHF_MYDOCUMENTS); Folder.Create(myDocsFolder.."\\Addons"); tblMenu = Application.GetMenu(); local nNewitem = Table.Count(tblMenu)+1; tblMenu[nNewitem] ={}; tblMenu[nNewitem].Text = "&Addons"; tblMenu[nNewitem].ID = 1000; tblMenu[nNewitem].Checked = false; tblMenu[nNewitem].Enabled = true; tblMenu[nNewitem].SubMenu = {}; local tFiles = File.Find(myDocsFolder.."\\Addons", "*.exe"); if (tFiles) then for j,Path in tFiles do FileParts = String.SplitPath(Path); tFiles_File = FileParts.Filename..FileParts.Extension; end local x = 0; for x = 1,Table.Count(tFiles) do tblMenu[nNewitem].SubMenu[x] = {}; tblMenu[nNewitem].SubMenu[x].Text = tFiles[x]; tblMenu[nNewitem].SubMenu[x].ID = 1000+x; tblMenu[nNewitem].SubMenu[x].Checked = false; tblMenu[nNewitem].SubMenu[x].Enabled = true; end Application.SetMenu(tblMenu); else end
Comment