اين الخلل في كود حذف عنصر من الليست بوكس

[محمد بن أحمد أبو حذيفة]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

الكود التالي لحذف عنصر من اللسيت بوكس

لكن الملف يحذف من الليست بوكس ويبقى في المجلد
local nSelected1 = ListBox.GetSelected("ListBox1");
--MediaPlayer.Stop("Plugin1");
MediaPlayer.Pause("Plugin1");
if (nSelected1 == nil) then
Dialog.Message("ÊäÈíå", "íÌÈ ÇÎÊíÇÑ ÇáãáÝÇÊ ÃæáÇ.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
conferm = Dialog.Message("ÊÃßíÏ", "åá ÃäÊ ãÊÃßÏ ãä ÍÐÝ ÇáÔÑíØ", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON1);
if conferm ~= IDNO then

for i, s in pairs(nSelected1) do
local data = ListBox.GetItemData("ListBox1", nSelected1[i]);
File.Delete(data, false, false, false, nil);
ListBox.DeleteItem("ListBox1", nSelected1[i]);
Dialog.Message("ÔßÑÇ", "áÞÏ Êã ÍÐÝ ÇáãáÝ äåÇÆíÇ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
else
MediaPlayer.Play("Plugin1");
end
end



الملف المرفق (https://up.top4top.net/downloadf-5930r35y1-zip.html)

[عبود عبود]

السلام عليكم ورحمة الله وبركاته

الخلل هو أنك عندما تضيف الشريط أو الملف تجعل الليست بوكس يحتفظ بالمسار الذى يتم إضافة الشريط منه أى يحفظ مسار الشريط الأساسى
ولذلك عندما تعمل على حذف هذا الشريط يتم حذفة من الليست بوكس كما تقول وأيضا يتم حذف الشريط الأساسى الموجود عند المستخدم وليس الشريط الذى تم نسخة فى المسار أوديو فى المجلد 1

:abc_070:

أى الخطأ سيكون فى الكود فى زر إضافة ملفات
بعد التعديل سيكون كالتالى :
--
sd = Folder.DoesExist(_SourceFolder.."\\AutoPlay\\Audio\\1");
if sd~=true then
Folder.Create(_SourceFolder.."\\AutoPlay\\Audio\\1");
end
fileade = Dialog.FileBrowse(true, "ÇÎÊÑ ÇáãáÝÇÊ ÇáÊí ÊÑíÏ ÅÖÇÝÊåÇ", "", "MP3 File (*.MP3)|*.MP3|", "", "mp3", true, false);
if (fileade[1] ~= "CANCEL") and (fileade ~= nil) then
StatusDlg.Show();
for index, path in pairs(fileade) do
dx = File.DoesExist(_SourceFolder.."\\AutoPlay\\Audio\\1\\"..String.SplitPath(path).Filename..String.SplitPat h(path).Extension);
if dx~=true then
File.Copy(path, _SourceFolder.."\\AutoPlay\\Audio\\1\\", false, false, false, true, nil);
ListBox.AddItem("ListBox1", String.SplitPath(path).Filename, _SourceFolder.."\\AutoPlay\\Audio\\1\\"..String.SplitPath(path).Filename..String.SplitPat h(path).Extension);
else
is_ok = Dialog.Message("ÑÓÇáÉ ÊäÈíÉ", path.."\r\n\r\n".."åÐÇ ÇáãáÝ ãæÌæÏ ãÓÈÞÇ åá ÊÑíÏ ÅÓÊÈÏáÉ ¿", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON1);
if is_ok~=IDNO then
File.Copy(path, _SourceFolder.."\\AutoPlay\\Audio\\1\\", false, true, false, true, nil);
Dialog.Message("ÔßÑÇ", "áÞÏ Êã ÅÖÇÝÉ ÇáãáÝÇÊ Åáì ÇáÕÝÍÉ ÇáÃæáì ÈäÌÇÍ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
end
end
StatusDlg.Hide();
end

[محمد بن أحمد أبو حذيفة]

بسم الله الرحمن الرحيم

اه الان فهمت

بارك الله فيك ورحمك