تويت
folder = "AutoPlay\\Audio\\2"
if folder ~= "" then
tbSearchFiles = {"*.mp3"};
for index,type in pairs(tbSearchFiles) do
file = File.Find(folder, type, true, false, nil);
if file ~= nil and file ~="CANCEL" then
for j,file_path in pairs(file) do
tbFilePath = String.SplitPath(file_path);
sFile = tbFilePath.Filename..tbFilePath.Extension;
ListBox.SetItemData("ListBox1", j, file_path);
end
end
end
end
nCount ="";
nNext ="";
sFile ="";
nCount = ListBox.GetCount("ListBox1");
tSelected = ListBox.GetSelected("ListBox1");
if tSelected then
nSelected = tSelected[1];
nNext = nSelected;
if nNext < nCount then
nNext = nNext+1;
ListBox.SelectItem("ListBox1", nNext);
sFile = ListBox.GetItemData("ListBox1", nNext);
--MediaPlayer.Load("MediaPlayer", sFile);
MediaPlayer.Load("MediaPlayer", "AutoPlay\\Audio\\2\\"..sFile..".mp3");
Web.LoadURL("Web1", "AutoPlay\\Docs\\2\\"..sFile..".htm");
-- MediaPlayer.Play("MediaPlayer");
MediaPlayer.Load("MediaPlayer", "AutoPlay\\Audio\\2\\"..sFile..".mp3");
Web.LoadURL("Web1", "AutoPlay\\Docs\\2\\"..sFile..".mht");
elseif nNext == nCount then
ListBox.SelectItem("ListBox1", 1);
sFile = ListBox.GetItemData("ListBox1", 1);
--MediaPlayer.Load("MediaPlayer", sFile);
MediaPlayer.Load("MediaPlayer", "AutoPlay\\Audio\\2\\"..sFile..".mp3");
Web.LoadURL("Web1", "AutoPlay\\Docs\\2\\"..sFile..".mht");
MediaPlayer.Play("MediaPlayer");
end
end
مرحباً بك استاذ / المهاجر 
ويحتوي على اخطاء
انتظر منك التوجيه والتصحيح والتعديل 
مرحباً بك استاذ / المهاجر ويحتوي على اخطاء انتظر منك التوجيه والتصحيح والتعديل
file = File.Find(_SourceFolder.."\\AutoPlay\\Audio\\2", "*.mp3", true, false, nil, nil);
ListBox.DeleteItem("ListBox1", -1);
if file then
for j,file_path in pairs(file) do
tbFilePath = String.SplitPath(file_path);
sFile = tbFilePath.Filename;
ListBox.AddItem("ListBox1", sFile, file_path);
end
end
file = File.Find(_SourceFolder.."\\AutoPlay\\Audio\\2", "*.mp3", true, false, nil, nil);
ListBox.DeleteItem("ListBox1", -1);
if file then
for j,file_path in pairs(file) do
tbFilePath = String.SplitPath(file_path);
sFile = tbFilePath.Filename;
ListBox.AddItem("ListBox1", sFile, file_path);
end
end
nCount = ListBox.GetCount("ListBox1");
num = ListBox.GetSelected("ListBox1");
c = String.ToNumber(num[1]);
if c < 10 then
SONG ="0".. c.."-"
MediaPlayer.Load("MediaPlayer", "AutoPlay\\Audio\\2\\"..SONG..".mp3");
else
SONG2 = c.."-"
MediaPlayer.Load("MediaPlayer", "AutoPlay\\Audio\\2\\"..SONG2..".mp3");
end
nCount = ListBox.GetCount("ListBox1");
num = ListBox.GetSelected("ListBox1");
c = String.ToNumber(num[1]);
if c < 10 then
MediaPlayer.Load("MediaPlayer", "AutoPlay\\Audio\\2\\"..string.format("0%d-", c)..".mp3");
else
MediaPlayer.Load("MediaPlayer", "AutoPlay\\Audio\\2\\"..string.format("%d-", c)..".mp3");
end
تعليق