تويت
بسم الله الرحمن الرحيم
هذا الكود لحذف ملفات متعدد من ليست بوكس لكن يظهر خطا حتى نظيف به هذا السط
Current = Folder.GetCurrent();
لكن لم افهم لماذا
هذا الكود لحذف ملفات متعدد من ليست بوكس لكن يظهر خطا حتى نظيف به هذا السط
Current = Folder.GetCurrent();
لكن لم افهم لماذا
كود PHP:
Checked1 = ListBox.GetChecked("ListBox1", BST_CHECKED);
if (Checked1 == nil) then
Dialog.Message("ÊäÈíå", "íÌÈ ÇÎÊíÇÑ ÇáãáÝÇÊ ÃæáÇ.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
r000654lt = Table.Count(Checked1);
nnn = ""
nnn = nnn..":"
nnn = "åá ÝÚáÇ ÊÑíÏ ÍÐÝ ÇáãáÝÇÊ"
nnn = nnn.."("
nnn = nnn..r000654lt
nnn = nnn..")"
nnn = nnn.."ÇáÊÇáíÉ äåÇÆíÇ"
nnn = nnn.."\r\n"
nnn = nnn.."************************************".."\r\n"
for index, path in pairs(Checked1) do
re0214t = ListBox.GetItemText("ListBox1", path);
--re0214t = ListBox.GetItemData("ListBox1", path);
nnn =nnn.."\r\n".. index.." : "..re0214t
end
proceed = Dialog.Message("ÊÍÐíÑ", nnn, MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
if proceed == IDYES then
StatusDlg.Show();
for index, path in pairs(Checked1) do
re0214t = ListBox.GetItemData("ListBox1", path);
File.Delete(re0214t, false, false, false, nil);
end
error = Application.GetLastError();
StatusDlg.Hide();
if (error ~= 0) then
Dialog.Message("Errror", tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
else
Dialog.Message("ÔßÑÇ", "áÞÏ Êã ÍÐÝ ÇáãáÝÇÊ äåÇÆíÇ, áÇ íãßäß ÇÓÊÑÌÇÚåÇ ãÓÊÞÈáÇ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
find_folder1 = File.Find(Current.."\\AutoPlay\\Audio\\1", "*.mp3*", true, false, current_path_file_searched, file_found_ok);
if find_folder1~=nil then
for x1,y1 in pairs(find_folder1) do
path_parts1 = String.SplitPath(y1);
ListBox.AddItem("ListBox1", path_parts1.Filename, y1);
end
end
end
end
تعليق