طلب التعديل على كود اضافة مجلد او ملف وكذلك الحذف

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

بسم الله الرحمن الرحيم
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

الكود الموالي لاضافة مجلد في المسار التالي

CD_Root\AutoPlay\Audio

الكود مبين على اساس الدالة

function LoadFolder()
Flist1 = Folder.Find(_SourceFolder.."\\AutoPlay\\Audio", "*", false, nil);
if Flist1 then
ListBox.DeleteItem("ListBox2", -1);
for j,searshFolder in pairs(Flist1)do
SplitFoler = String.SplitPath(searshFolder);
ListBox.AddItem("ListBox2", SplitFoler.Filename, searshFolder);
end
end
end

لكن يجعله مجلد داخل مجلد

فيصبح هكذا
مجلد اخر بنفس اسمه داخله\مجلد رئيسي\CD_Root\AutoPlay\Audio

brow = Dialog.FolderBrowse(":من فضلك حدد المجلد", _DesktopFolder);
if brow ~= "CANCEL" then
format = {"*.avi", "*.mpg", "*.wmv", "*.mp3"}
for i,type in pairs(format)do
split = String.SplitPath(brow);
source = _SourceFolder.."\\AutoPlay\\Audio\\"..split.Filename
tbSearsh = File.Find(brow, type, false, false, nil, nil);
if tbSearsh then
for l,load in pairs(tbSearsh)do
Folder.Create(source);
Folder.Create(source.."\\"..split.Filename);
StatusDlg.Show(MB_ICONNONE, false);
StatusDlg.SetMessage("جاري النسخ...");
File.Copy(load, source.."\\"..split.Filename.."\\", true, true, false, true, nil);
StatusDlg.Hide();
end

else
local find = Folder.Find(brow.."\\", "*", false, nil);
if find then
for nF, tblFfolder in pairs(find)do
pFName = String.SplitPath(tblFfolder);
Folder.Create(source);
--Folder.Create(source.."\\"..pFName.Filename);
tbSearsh = File.Find(tblFfolder, type, false, false, nil, nil);
if tbSearsh then
for l,load in pairs(tbSearsh)do
StatusDlg.Show(MB_ICONNONE, false);
StatusDlg.SetMessage("جاري النسخ...");
File.Copy(load, source.."\\"..pFName.Filename.."\\", true, true, false, true, nil);
StatusDlg.Hide();
end

end
end
end
end
ListBox.DeleteItem("ListBox2", -1);
LoadFolder()
end
end


الكود الثاني من المفترض ان يستعرض المجلدات التي في نفس المسار والمستخدم يحدد المجلد الذي يضيف اليه الملف


browse = Dialog.FileBrowse(true, "مكان الملف", _DesktopFolder, "All Files|*.avi;*.mpg;*.wmv;*.mp3|", "", "dat", true, false);

for n, fileType in pairs(browse)do
if browse[1] ~= "CANCEL" then
message = Dialog.Message("حدد مكان نسخ الملف", "عليك نسخ الملفات اولا هل تريد نسخها", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
if message == 6 then
bFolder = Dialog.FolderBrowse("من فضلك اختر المجلد", _SourceFolder.."\\AutoPlay\\Audio\\"..ListBox.GetItemText("ListBox1", 1));
if bFolder ~= "CANCEL" then
StatusDlg.Show(MB_ICONNONE, false);
File.Copy( browse[1], bFolder, true, true, false, true, nil);
StatusDlg.Hide();
select = ListBox.GetSelected("ListBox2");
if select then
selectName = ListBox.GetItemText("ListBox2", select[1]);
GetName = String.SplitPath(bFolder);
if GetName.Filename == selectName then
ListBox.DeleteItem("ListBox3", -1);
ListBox.SelectItem("ListBox2", select[1]);
end
end
end
else
Dialog.Message("حاول مرة أخرى", "عذرا لايمكنك فتح الملفات");
end
end
end


كذلك هل ممكن اضافة

زر حذف مجلد
وحذف شريط من مجلد

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

توصلت لهذا الكود بالتغير على السطر 6 كما يلي
source = _SourceFolder.."\\AutoPlay\\Audio\\"..split.Filename

غيرتها بهذه

source = _SourceFolder.."\\AutoPlay\\Audio\\"



فاصبح الكود

brow = Dialog.FolderBrowse(":من فضلك حدد المجلد", _DesktopFolder);
if brow ~= "CANCEL" then
format = {"*.avi", "*.mpg", "*.wmv", "*.mp3"}
for i,type in pairs(format)do
split = String.SplitPath(brow);
-- source = _SourceFolder.."\\AutoPlay\\Audio\\"..split.Filename
source = _SourceFolder.."\\AutoPlay\\Audio\\"
tbSearsh = File.Find(brow, type, false, false, nil, nil);
if tbSearsh then
for l,load in pairs(tbSearsh)do
Folder.Create(source);
Folder.Create(source.."\\"..split.Filename);
StatusDlg.Show(MB_ICONNONE, false);
StatusDlg.SetMessage("جاري النسخ...");
File.Copy(load, source.."\\"..split.Filename.."\\", true, true, false, true, nil);
StatusDlg.Hide();
end

else
local find = Folder.Find(brow.."\\", "*", false, nil);
if find then
for nF, tblFfolder in pairs(find)do
pFName = String.SplitPath(tblFfolder);
Folder.Create(source);
--Folder.Create(source.."\\"..pFName.Filename);
tbSearsh = File.Find(tblFfolder, type, false, false, nil, nil);
if tbSearsh then
for l,load in pairs(tbSearsh)do
StatusDlg.Show(MB_ICONNONE, false);
StatusDlg.SetMessage("جاري النسخ...");
File.Copy(load, source.."\\"..pFName.Filename.."\\", true, true, false, true, nil);
StatusDlg.Hide();
end

end
end
end
end
ListBox.DeleteItem("ListBox2", -1);
LoadFolder()
end
end

هل هذا صحيح

[ياسرهتهت]

بسم الله الرحمن الرحيم
اخي محمد
ارجو توضيح الفكرة اكثر --- لقد فهمت :
ما تقوم به هذه الاكواد هو نسخ مجلد يحتوي على ملفات الي مجلد Audio
وهذا المجلد يظهر اسمه في قائمة ComboBox
والملفات تظهر قائمة في ListBox
وانت تريد زر يحذف المجلد من Audio واسمة من ComboBox
وكذالك زر يحذف الملف من المجلد وبالتالي سيحذف من ListBox
هل هذا ما تريد ؟ ام اني فهمت خطأ
موفق بإذن الله ... لك مني أجمل تحية .

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

بسم الله الرحمن الرحيم
اخي محمد
ارجو توضيح الفكرة اكثر --- لقد فهمت :
ما تقوم به هذه الاكواد هو نسخ مجلد يحتوي على ملفات الي مجلد Audio
وهذا المجلد يظهر اسمه في قائمة ComboBox
والملفات تظهر قائمة في ListBox
وانت تريد زر يحذف المجلد من Audio واسمة من ComboBox
وكذالك زر يحذف الملف من المجلد وبالتالي سيحذف من ListBox
هل هذا ما تريد ؟ ام اني فهمت خطأ
موفق بإذن الله ... لك مني أجمل تحية .


نعم هو المطلوب لكن فقط التعامل مع اليست بوكس فقط بدلا من المبوبوكس
اي ان الكواد تنسخ مجلد يظهر اسمه في ليست بوكس 1 والملفات في ليس بوكس 2
والباقي كما تفضلت

والمطلوب هو

كود اضافة مجلد الى المسار Audio مع مرعات

01- تنبيه المستخدم بان المجلد موجود مسبقا واعطاءه خيار تعديل اسمه او رفض الاضافة
02-الزر ينسخ مباشرة في مجلد Audio مهما تغير مكان وضع الاسطوانة على القرص سواء c او d....الخ


و كود اضافة ملف يكون فيه مايلي

01- تنبيه المستخدم بان الملف موجود مسبقا واعطاءه خيار تعديل اسمه او رفض الاضافة




وايضا

كودين لحذف اقصد مجلد او ملف

مع تنبيه المستخدم بضرورة تحديد سواء مجلد او ملف
ونحذيره هل هو موافق على الحذف ام لا


اعتذر على الاطالة ورحمك الله على سعت صدرك
واطال الله فيعمرك على طاعته وجعل ما تخط يمينك في الجنة

[ياسرهتهت]

بسم الله الرحمن الرحيم
اخي محمد للاسف عندي مشكلة في البرنامج
كل ما حولة التطبيق على مسار المجلد Audio
طبقت على مجلد باسم MIN داخل الاسطوانه
تستطيع تغير المسار كما تريد
الملف في المرفقات

موفق بإذن الله ... لك مني أجمل تحية .

[عبد العزيز البسكري]

بارك الله فيكم و لكم و في أوقاتكم و صحّكم و أولادكم مع كل من تحبّون .

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

بسم الله الرحمن الرحيم
اخي محمد للاسف عندي مشكلة في البرنامج
كل ما حولة التطبيق على مسار المجلد Audio
طبقت على مجلد باسم MIN داخل الاسطوانه
تستطيع تغير المسار كما تريد
الملف في المرفقات

موفق بإذن الله ... لك مني أجمل تحية .



بارك الله فيك
تصميم رائع جدا
وبرمجة جيد ايضا لكن توجد بعض الملاحظات هل ممكن التعديل عليها

بالنسبة لاضافة مجلد

1- اريد ان احذف الحوار الذي يظهر بحيث يبقى اسم المجلد كما هو دون تغير

https://b.top4top.net/p_4641r3an1.png


2- هل ممكن شريط تقدم النسخ


3- عند الضغط على زر cancel كما في الصورة

https://c.top4top.net/p_4642tczb1.png


ياخذ الملفات ويسمها باسم cancel


بالنسبة للزر اضافة ملف

1- عند اضافة ملف الى مجلد معين يظهر المف المضاف وحده في قائمة المفات وباقي المفات لاتظره الى بعد الانتقال الى مجلد اخر او الضغط على نفس المجلد كما في الصورة


https://a.top4top.net/p_464a63vd1.gif


2- في هذا الكود

fil_l = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "mide (.mp4, .avi, .wmv, .mp3, .flv, .3gp)|*.mp4;*.avi;*.wmv;*.mp3;*.flv;*.3gp|", "", "dat", true, false);


عندما نتعامل معه بهذا

FileOpen
(boolean) Whether to make the dialog a "file open" dialog:

VALUE
DESCRIPTION

true
Dialog will be a " file open" dialog.

false
Dialog will be a "file save" dialog.


يتجمد المشروع



بالنسبة لزر حذف مجلد

اذا لم نوقف القراءة بهذا الكود

MediaPlayer.Stop("Plugin1");

فان الكود يحذف كل المفات الا الملف الذي تتم قراءته

لكن بعد اضافة الكود تبين الن المفات التي داخل المجلد المحذوف تزول ولكن عند اعدت تشغيل المشروع يظهر اسمه في قائمة المجلدات لكن فارغ


بالنسبة لزر حذف شريط

عدلته كما يلي

tblIndex = ListBox.GetSelected("ListBox1")
if tblIndex ~= nil then

MediaPlayer.Stop("Plugin1");

Text = ListBox.GetItemText("ListBox1", tblIndex[1]);
Data = ListBox.GetItemData("ListBox1", tblIndex[1]);
--MediaPlayer.Load("Plugin1", "AutoPlay\\Audio\\Shew.ogg");
File.Delete(Data, false, false, false, nil);
Application.Sleep(1000);

ListBox.DeleteItem("ListBox1", tblIndex[1]);
ListBox.SelectItem("ListBox1", 1);

else
result = Dialog.Message("Notice", "Your message here.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);


end



فما هو رايك فيه




اخيرا اسال الله ان لا اكون اثقلت عليك
ومن جهتي احاول ان اعدل فيما استطيع في حدود خبرتي القليلة جدا بالبرمجة

[ياسرهتهت]

بارك الله فيك
تصميم رائع جدا
وبرمجة جيد ايضا لكن توجد بعض الملاحظات هل ممكن التعديل عليها

بالنسبة لاضافة مجلد

1- اريد ان احذف الحوار الذي يظهر بحيث يبقى اسم المجلد كما هو دون تغير

https://b.top4top.net/p_4641r3an1.png


2- هل ممكن شريط تقدم النسخ


3- عند الضغط على زر cancel كما في الصورة

https://c.top4top.net/p_4642tczb1.png


ياخذ الملفات ويسمها باسم cancel


بالنسبة للزر اضافة ملف

1- عند اضافة ملف الى مجلد معين يظهر المف المضاف وحده في قائمة المفات وباقي المفات لاتظره الى بعد الانتقال الى مجلد اخر او الضغط على نفس المجلد كما في الصورة


https://a.top4top.net/p_464a63vd1.gif


2- في هذا الكود

fil_l = dialog.filebrowse(true, "locate file", _desktopfolder, "mide (.mp4, .avi, .wmv, .mp3, .flv, .3gp)|*.mp4;*.avi;*.wmv;*.mp3;*.flv;*.3gp|", "", "dat", true, false);


عندما نتعامل معه بهذا

fileopen
(boolean) whether to make the dialog a "file open" dialog:

Value
description

true
dialog will be a " file open" dialog.

False
dialog will be a "file save" dialog.


يتجمد المشروع



بالنسبة لزر حذف مجلد

اذا لم نوقف القراءة بهذا الكود

mediaplayer.stop("plugin1");

فان الكود يحذف كل المفات الا الملف الذي تتم قراءته

لكن بعد اضافة الكود تبين الن المفات التي داخل المجلد المحذوف تزول ولكن عند اعدت تشغيل المشروع يظهر اسمه في قائمة المجلدات لكن فارغ


بالنسبة لزر حذف شريط

عدلته كما يلي

tblindex = listbox.getselected("listbox1")
if tblindex ~= nil then

mediaplayer.stop("plugin1");

text = listbox.getitemtext("listbox1", tblindex[1]);
data = listbox.getitemdata("listbox1", tblindex[1]);
--mediaplayer.load("plugin1", "autoplay\\audio\\shew.ogg");
file.delete(data, false, false, false, nil);
application.sleep(1000);

listbox.deleteitem("listbox1", tblindex[1]);
listbox.selectitem("listbox1", 1);

else
result = dialog.message("notice", "your message here.", mb_ok, mb_iconinformation, mb_defbutton1);


end



فما هو رايك فيه




اخيرا اسال الله ان لا اكون اثقلت عليك
ومن جهتي احاول ان اعدل فيما استطيع في حدود خبرتي القليلة جدا بالبرمجة
----------------------------------------
بسم الله الرحمن الرحيم
حاولت تعديل المطلوب بقدر المستطاع
احتاج لتدخل احد الاساتذة الكرام في حذف المجلد والملف يعمل ؟؟
شاهد المرفقات
موفق بإذن الله ... لك مني أجمل تحية .

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

----------------------------------------
بسم الله الرحمن الرحيم
حاولت تعديل المطلوب بقدر المستطاع
احتاج لتدخل احد الاساتذة الكرام في حذف المجلد والملف يعمل ؟؟
شاهد المرفقات
موفق بإذن الله ... لك مني أجمل تحية .


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

في زر اضافة مجلد
نزعت الكود الذي يتعرف على وجود ملف مسبق في القائمة
اظن انه

Folder.DoesExist(_SourceFolder.."\\MIN") then

بالنسبة لزر اضافة ملف هل ممكن ان نجعله كما يلي

عند الضغط على الزر يتم اختار الملف المراد اضافته ثم يتم فتح مجلد MIN بعد الموافقة

بالنسبة لزر حذف مجلد هل ممكن ان نحذف المجلد كاملا


بارك الله فيك ورحمك
في انتظار بقيت الاساتذة

[عبود عبود]

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


تفضل أخى :
لحذف مجلد يجب تحديدة من الليست بوكس الثانى

http://www.mediafire.com/file/cewx4ej3531nw8a/10-4-2017.rar

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

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


تفضل أخى :
لحذف مجلد يجب تحديدة من الليست بوكس الثانى

المحتوى المخفي لايقتبس


بارك الله فيك
بالنسة لزر اضافة مجلد هل ممكن نجعله يتعرف على المجلد الموجود مسبقا ويصدر حوار لذلك

زر حذف شريط يحذف شريط غير المحدد انظر الصورة

https://c.top4top.net/p_465706ed1.png

[عبود عبود]

بارك الله فيك
بالنسة لزر اضافة مجلد هل ممكن نجعله يتعرف على المجلد الموجود مسبقا ويصدر حوار لذلك

زر حذف شريط يحذف شريط غير المحدد انظر الصورة

https://c.top4top.net/p_465706ed1.png


بالنسبة للشق الثانى من السؤال فقد سقط سهوا أن قمت بالتعديل على tblIndex2 بأن قمت بإضافة رقم 2 بجوارة

ولم أكمل التعديل على الباقى فى الكود سهوا

:abc_156: إحذف الكود بالكامل وضع هذا مكانه :

--
function dleatefile(Source,Deleted,Total)
StatusDlg.SetMeterRange(0, Total);
StatusDlg.SetMeterPos(Deleted);
StatusDlg.SetStatusText("ÌÇÑì ÍÐÝ "..Source);
StatusDlg.SetTitle("ÍÐÝ ãáÝ ãÍÏÏ");
return true
end
tblIndex2 = ListBox.GetSelected("ListBox1")
if tblIndex2~=nil then
Data = ListBox.GetItemData("ListBox1", tblIndex2[1]);
if Data~="" then
MediaPlayer.Stop("Plugin1");
result = Dialog.Message("ÅäÊÈå", Data.."\r\n".."åá ÊÑíÏ ÍÐÝ åÐÇ ÇáãáÝ ¿", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
if result~=IDNO then
StatusDlg.Show(MB_ICONNONE, false);
File.Delete(Data, false, false, true, dleatefile);
StatusDlg.Hide();
else
Dialog.Message("ÔßÑÇ ááÅäÊÈÇå", "Êã ÇáÊÑÇÌÚ Úä åÐå ÇáÎØæÉ æáä íÊã ÍÐÝ ÇáãáÝ");
Application.ExitScript();
end
end
Application.Sleep(1000);
ListBox.DeleteItem("ListBox1", tblIndex2[1]);
end
Page.Redraw();
ListBox.SelectItem("ListBox1", 1);


أما بالنسبة للشق الأول من السؤال فماذا تقصد ؟ تقصد إذا كان المجلد المراد إضافتة موجود مسبقا " أى تم إضافته من قبل " أن يتم تنبيه المستخدم بوجودة ؟

[عبود عبود]

إنتظر أرفع لك الكود فى ملف تكست بسبب عدم ظهورة بالشكل الصحيح فى الصفحة لعيب ما لا أدرى ما هو

[عبود عبود]

تفضل الكود التالى ضعه مكان سابقة :

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

بالنسبة للشق الثانى من السؤال فقد سقط سهوا أن قمت بالتعديل على tblindex2 بأن قمت بإضافة رقم 2 بجوارة

ولم أكمل التعديل على الباقى فى الكود سهوا

:abc_156: إحذف الكود بالكامل وضع هذا مكانه :

--
function dleatefile(source,deleted,total)
statusdlg.setmeterrange(0, total);
statusdlg.setmeterpos(deleted);
statusdlg.setstatustext("ÌÇÑì ÍÐÝ "..source);
statusdlg.settitle("ÍÐÝ ãáÝ ãÍÏÏ");
return true
end
tblindex2 = listbox.getselected("listbox1")
if tblindex2~=nil then
data = listbox.getitemdata("listbox1", tblindex2[1]);
if data~="" then
mediaplayer.stop("plugin1");
result = dialog.message("ÅäÊÈå", data.."\r\n".."åá ÊÑíÏ ÍÐÝ åÐÇ ÇáãáÝ ¿", mb_yesno, mb_iconinformation, mb_defbutton1);
if result~=idno then
statusdlg.show(mb_iconnone, false);
file.delete(data, false, false, true, dleatefile);
statusdlg.hide();
else
dialog.message("ÔßÑÇ ááÅäÊÈÇå", "Êã ÇáÊÑÇÌÚ Úä åÐå ÇáÎØæÉ æáä íÊã ÍÐÝ ÇáãáÝ");
application.exitscript();
end
end
application.sleep(1000);
listbox.deleteitem("listbox1", tblindex2[1]);
end
page.redraw();
listbox.selectitem("listbox1", 1);


أما بالنسبة للشق الأول من السؤال فماذا تقصد ؟ تقصد إذا كان المجلد المراد إضافتة موجود مسبقا " أى تم إضافته من قبل " أن يتم تنبيه المستخدم بوجودة ؟


الكود يعمل بشكل جيد لكن تظهر فيه ارقام واشكال غريبة

بالنسبة للشق الاول

نعم اقصد

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

[عبود عبود]

حاضر جارى التعديل

[عبود عبود]

النت ضعيف جدااااااااااااااااااااااا ااااااااااااااااااااااااا ااااااااااااااااااااااااا ااااااااااااااااااااااااا اااااااااا فى إنتظار الرفع

[عبود عبود]

http://www.mediafire.com/file/vhrqxc6ej50eu1c/ssssss.rar

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

المحتوى المخفي لايقتبس







بارك الله فيك

لكن عند الموافقة على تغير المجلد وبعد كتابة الاسم الجديد والضغط على موافق يقول انه تم التغيرلكنه لا يتغير الاسم اسمه

وعند خروج الحوار لكتابة الاسم والغاء العملية في هذه اللحظة يخرج حوار انه تم تغير الاسم

بالنسبة لحذف مجدل بعد اتمام العملية يبقى المجلد فارغ ولا يحذف كليا



كذلك اريد استشارتك في طريقة البحث التي تراها مناسبة للمشروع
هل نجعل ليست بوكس ثالث نعرض فيه محتويات البحث

هل يمكن ان نبحث في نفس الليست بوكس ويحدد كل النتائج

[عبود عبود]

بارك الله فيك

لكن عند الموافقة على تغير المجلد وبعد كتابة الاسم الجديد والضغط على موافق يقول انه تم التغيرلكنه لا يتغير الاسم اسمه

وعند خروج الحوار لكتابة الاسم والغاء العملية في هذه اللحظة يخرج حوار انه تم تغير الاسم

بالنسبة لحذف مجدل بعد اتمام العملية يبقى المجلد فارغ ولا يحذف كليا



كذلك اريد استشارتك في طريقة البحث التي تراها مناسبة للمشروع
هل نجعل ليست بوكس ثالث نعرض فيه محتويات البحث

هل يمكن ان نبحث في نفس الليست بوكس ويحدد كل النتائج


http://www.mediafire.com/file/8qb8aeqco0b3nem/%D8%B9%D8%A8%D9%88%D8%AF.apz

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

المحتوى المخفي لايقتبس


بارك الله فيك نفس المشكلة

المجلد يبقى موجود لكن فارغ بعد الحذف

ومشكلة تغير اسم المجلد ان كان موجود مسبق باسم اخر لا يعمل

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

هل ممكن هذا
https://d.top4top.net/p_466e801z1.png

[عبود عبود]

بارك الله فيك نفس المشكلة

المجلد يبقى موجود لكن فارغ بعد الحذف

ومشكلة تغير اسم المجلد ان كان موجود مسبق باسم اخر لا يعمل

إعرضى لى ما يحدث معك بفيديو حيث أنى قمت بالتجربة ولم ينتج أى مشاكل
تقول أن المجلد يبقى موجود ولكن فارغ بعد الحذف ...... أقول لك أن ما يتم حذفة هو المجلد المحدد فقط لا غير ويبقى المجلد الرئيسى الحاضن للمجلدات وهو تقريبا إسمه min

[عبود عبود]

هل ممكن هذا
https://d.top4top.net/p_466e801z1.png

نعم يمكن ولكن قبل البدأ فى أى شيئ آخر

إعرض لى بفيديو عن المشاكل التى ذكرتها سابقا

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

إعرضى لى ما يحدث معك بفيديو حيث أنى قمت بالتجربة ولم ينتج أى مشاكل
تقول أن المجلد يبقى موجود ولكن فارغ بعد الحذف ...... أقول لك أن ما يتم حذفة هو المجلد المحدد فقط لا غير ويبقى المجلد الرئيسى الحاضن للمجلدات وهو تقريبا إسمه min

بارك الله فيك اخي
اتعبتك معي

نعم اعلم ان المجلد الرئيسي يبقى

انظر

https://f.top4top.net/p_466hwaoq1.gif

كذلك عند تغير اسم المجلد يتغير المجلد الموجود مسبقا انا اريد ان اغير اسم المجلد المحمل من الجهاز في حالت كان اسمه هو نفس اسم مجلد موجود مسبقا ثم ينسخ الى المجلد الرئيسي بعد تغير اسمه

[عبود عبود]

طيب إنت رفعت صورة توضيحية للمشكل بعد تصدير المشروع
إرفع صورة أخرى أثناء معاينة المشروع " قبل ما تصدرة " علشان نشوف هل يحدث هذا أم لا لبحث تلافى المشكل بعد ذلك

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

طيب إنت رفعت صورة توضيحية للمشكل بعد تصدير المشروع
إرفع صورة أخرى أثناء معاينة المشروع " قبل ما تصدرة " علشان نشوف هل يحدث هذا أم لا لبحث تلافى المشكل بعد ذلك




نفس المشكلة

تفضل

https://b.top4top.net/p_4663n2d31.gif

[عبود عبود]

ما هو الإصدار للأتوبلاى المثبت لديك ؟

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

ما هو الإصدار للأتوبلاى المثبت لديك ؟


https://f.top4top.net/p_466gy7d41.png

[عبود عبود]

أوك سوف نجرب حذف المجلد بإستخدام ملف دل
إنتظر إلى حين إتمام التعديل والرفع

[عبود عبود]

عذرا عملية الحذف بإستخدام ملف دل باءت بالفشل

[عبود عبود]

إذن سوف أعلق الإستكمال حتى يدخل أى زميل لمعاينة الملف المفتوح الأخير وإطلاعى على الأخطاء فى الويندوز المستعمل لدية

لا يوجد مشكل معى فى ويندوز 7

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

إذن سوف أعلق الإستكمال حتى يدخل أى زميل لمعاينة الملف المفتوح الأخير وإطلاعى على الأخطاء فى الويندوز المستعمل لدية

لا يوجد مشكل معى فى ويندوز 7


انا استعمل الونداوز 8.1

[ياسرهتهت]

إذن سوف أعلق الإستكمال حتى يدخل أى زميل لمعاينة الملف المفتوح الأخير وإطلاعى على الأخطاء فى الويندوز المستعمل لدية

لا يوجد مشكل معى فى ويندوز 7

--------------------------------
بسم الله الرحمن الرحيم
انا استخدم Windows 7
جربت الملف المفتوح الاخير
وعندي نفس المشكلة يحذف الملفات ويبقي المجلد فارغ؟؟
موفق بإذن الله ... لك مني أجمل تحية .

[عبود عبود]

تمام تمام تقريبا وصلت لحل المشكلة فى تنفيذ الأكواد الموجودة فى احداث الصفحة مرة أخرى
إنتظروا الحل إن شاء الله "بسيطة جدا سقط سهوا"

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

تمام تمام تقريبا وصلت لحل المشكلة فى تنفيذ الأكواد الموجودة فى احداث الصفحة مرة أخرى
إنتظروا الحل إن شاء الله "بسيطة جدا سقط سهوا"


في انتظارك

[عبود عبود]

حل المشكلة كان فى زيادة elseif فى أحداث الصفحة " On Show " والتى إعتمدت إستدعائها وتنفيذها بعد حذف المجلد " كأنى أعمل ريفريش للصفحة "

ولزيادة التأكيد على حذف المجلد "فقط زيادة تأكيد ويمكن الإستغناء عنها" قمت بعمل شرط يعمل على التأكد من وجود المجلد الذى تم حذفة سابقا فإذا وجد المجلد فارغا يقوم بحذفه
http://www.abc4web.net/vb/images/icons/icon_z.gif فـــ معلومة لكم هناك فرق بين الأمر Folder.DeleteTree و الأمر Folder.Delete فالأول يعمل على حذف المجلد بأكملة من حيث الملفات التى يحتويها والمجلد نفسه أما الأمر الثانى فهو يستخدم لحذف المجلدات الفارغة


عموما الملف المفتوح بعد التعديل :

http://www.mediafire.com/file/jvdcttxtm5comy8/%D8%B9%D8%A8%D9%88%D8%AF2.apz

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

حل المشكلة كان فى زيادة elseif فى أحداث الصفحة " on show " والتى إعتمدت إستدعائها وتنفيذها بعد حذف المجلد " كأنى أعمل ريفريش للصفحة "

ولزيادة التأكيد على حذف المجلد "فقط زيادة تأكيد ويمكن الإستغناء عنها" قمت بعمل شرط يعمل على التأكد من وجود المجلد الذى تم حذفة سابقا فإذا وجد المجلد فارغا يقوم بحذفه
http://www.abc4web.net/vb/images/icons/icon_z.gif فـــ معلومة لكم هناك فرق بين الأمر folder.deletetree و الأمر folder.delete فالأول يعمل على حذف المجلد بأكملة من حيث الملفات التى يحتويها والمجلد نفسه أما الأمر الثانى فهو يستخدم لحذف المجلدات الفارغة


عموما الملف المفتوح بعد التعديل :

المحتوى المخفي لايقتبس


بارك الله فيك لم تنجح معي

في انتظار الاخ ياسر

كذلك زر التغير مازالت به نفس المشكلة


رحمك الله حيا وميت

[عبود عبود]

بارك الله فيك لم تنجح معي

في انتظار الاخ ياسر

كذلك زر التغير مازالت به نفس المشكلة


رحمك الله حيا وميت

أتكلم عن حذف المجلد الآن

بما أنها لم تنجح معك سوف نعمل على تجميد عمل المشروع لمدة 3 ثوانى أخرى
فضع هذا الكود التالى فى زر حذف المجلد بعد حذف الأكواد السابقة الموجودة فى الزر

فى المرفقات

[ثامر أبو بلقيس]

أتكلم عن حذف المجلد الآن

بما أنها لم تنجح معك سوف نعمل على تجميد عمل المشروع لمدة 3 ثوانى أخرى
فضع هذا الكود التالى فى زر حذف المجلد بعد حذف الأكواد السابقة الموجودة فى الزر

فى المرفقات

مشكور جدا ... أرغب في تحميل الملف :abc_139:

[ياسرهتهت]

بارك الله فيك لم تنجح معي

في انتظار الاخ ياسر

كذلك زر التغير مازالت به نفس المشكلة


رحمك الله حيا وميت
-----------------------------------------------
بسم الله الرحمن الرحيم
نفس الخطأ ينحذف الملفات ويبقي المجلد ؟؟
وجربت الكود الموجود الملف النصي ( تجميد عمل المشروع لمدة 3 ثوانى أخرى)
نفس الشي ؟؟
المشكلة ان الاكواد تطبق بنجاح على مجلدات خارج الاسطونة
لكن عندما يكون المجلد داخل الاسطوانة يحدث الخلل ؟؟
موفق بإذن الله ... لك مني أجمل تحية .

[عبود عبود]

-----------------------------------------------
بسم الله الرحمن الرحيم
نفس الخطأ ينحذف الملفات ويبقي المجلد ؟؟
وجربت الكود الموجود الملف النصي ( تجميد عمل المشروع لمدة 3 ثوانى أخرى)
نفس الشي ؟؟
المشكلة ان الاكواد تطبق بنجاح على مجلدات خارج الاسطونة
لكن عندما يكون المجلد داخل الاسطوانة يحدث الخلل ؟؟
موفق بإذن الله ... لك مني أجمل تحية .

أممممممم طيب يمكن تشغيل البرنامج كأدمينيستور مثلا ؟

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

أممممممم طيب يمكن تشغيل البرنامج كأدمينيستور مثلا ؟

نفس المشكلة عند التشغيل كمشؤول

[عبود عبود]

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

أين يكمن الخطأ لا أدرى أشكركم على المتابعة وألقاكم فى إستفسارات أخرى لمواضيع أخرى

تحياتى لكل من شارك:abc_152::abc_152::abc_152::abc_152:

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

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

أين يكمن الخطأ لا أدرى أشكركم على المتابعة وألقاكم فى إستفسارات أخرى لمواضيع أخرى

تحياتى لكل من شارك:abc_152::abc_152::abc_152::abc_152:

بارك الله فيك واسال الله لنا ولكم التوفيق

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

بسم الله الرحمن الرحيم
اظن اننا لو جربنا ان يكون المجلد الرئيسي داخل
مجلد

Audio

ربم تنجح العملية


https://f.top4top.net/p_466qe6ur1.gif

[ثامر أبو بلقيس]

حاولت أن أفهم ما المشكل في الكود
ربما أني لم أفهم
function dleatefolder(Source,Deleted,Total)
StatusDlg.SetMeterRange(0, Total);
StatusDlg.SetMeterPos(Deleted);
StatusDlg.SetStatusText("جارى حذف "..Source);
StatusDlg.SetTitle("حذف مجلد بالكامل");
return true
end
tblIndex = ListBox.GetSelected("ListBox2")
if tblIndex ~= nil then
Data = ListBox.GetItemData("ListBox2", tblIndex[1]);
if Data~="" then
MediaPlayer.Stop("Plugin1");
result = Dialog.Message("إنتبه", Data.."\r\n".."هل تريد حذف هذا المجلد بأكملة ؟", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
if result~=IDNO then
StatusDlg.Show(MB_ICONNONE, false);
StatusDlg.SetMessage(" ......... جارى حذف المجلد إنتظر قليلا");
Folder.DeleteTree(Data.."\\", dleatefolder);

rt = Folder.DoesExist(Data);
if rt then
Folder.Delete(Data);
end
x = Application.GetPageScript("RASE", "On Show");
loadstring(x)()
StatusDlg.Hide();
ListBox.SelectItem("ListBox2", tblIndex[1]);
ListBox.DeleteItem("ListBox2", tblIndex[1]);
ListBox.DeleteItem("ListBox1", tblIndex1[1]);
Folder.DeleteTree(Data.."\\", dleatefolder);
Dialog.Message("شكرا", "تم حذف المجلد بنجاح");
else
Dialog.Message("شكرا للإنتباه","تم التراجع عن هذه الخطوة ولن يتم حذف المجلد");
Application.ExitScript();
end
end
else
Dialog.SplashImage("AutoPlay\\Images\\77770009.png", 5, true);
end

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

حاولت أن أفهم ما المشكل في الكود
ربما أني لم أفهم
function dleatefolder(Source,Deleted,Total)
StatusDlg.SetMeterRange(0, Total);
StatusDlg.SetMeterPos(Deleted);
StatusDlg.SetStatusText("جارى حذف "..Source);
StatusDlg.SetTitle("حذف مجلد بالكامل");
return true
end
tblIndex = ListBox.GetSelected("ListBox2")
if tblIndex ~= nil then
Data = ListBox.GetItemData("ListBox2", tblIndex[1]);
if Data~="" then
MediaPlayer.Stop("Plugin1");
result = Dialog.Message("إنتبه", Data.."\r\n".."هل تريد حذف هذا المجلد بأكملة ؟", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
if result~=IDNO then
StatusDlg.Show(MB_ICONNONE, false);
StatusDlg.SetMessage(" ......... جارى حذف المجلد إنتظر قليلا");
Folder.DeleteTree(Data.."\\", dleatefolder);

rt = Folder.DoesExist(Data);
if rt then
Folder.Delete(Data);
end
x = Application.GetPageScript("RASE", "On Show");
loadstring(x)()
StatusDlg.Hide();
ListBox.SelectItem("ListBox2", tblIndex[1]);
ListBox.DeleteItem("ListBox2", tblIndex[1]);
ListBox.DeleteItem("ListBox1", tblIndex1[1]);
Folder.DeleteTree(Data.."\\", dleatefolder);
Dialog.Message("شكرا", "تم حذف المجلد بنجاح");
else
Dialog.Message("شكرا للإنتباه","تم التراجع عن هذه الخطوة ولن يتم حذف المجلد");
Application.ExitScript();
end
end
else
Dialog.SplashImage("AutoPlay\\Images\\77770009.png", 5, true);
end




بارك الله فيك الكود يعمل بشكل جيد

https://a.top4top.net/p_466h3rnm1.gif

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

بقي شيئ اخر في زر اضافة مجلد
تنبيه المستخدم بان المجلد موجود مسبقا واعطائه امكانية تغير اسم المجلد المحمل من الجهاز واضافة الى بقيت المجلدات

[ثامر أبو بلقيس]

مشكور جدا ... أرغب في تحميل الملف :abc_139:


شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[ربيع]

بقي شيئ اخر في زر اضافة مجلد
تنبيه المستخدم بان المجلد موجود مسبقا واعطائه امكانية تغير اسم المجلد المحمل من الجهاز واضافة الى بقيت المجلدات

folder = Dialog.FolderBrowse("Open Folder", "C:\\");
if (folder ~= "CANCEL") and (folder ~= "") then
N_FOLDR = String.SplitPath(folder).Filename
result = Folder.DoesExist(_SourceFolder.."\\MIN");
if not result then
Folder.Create(_SourceFolder.."\\MIN\\");
Folder.Create(_SourceFolder.."\\MIN\\"..N_FOLDR.."\\");
Flash.SetVisible("Flash1", true);
File.Copy(folder.."\\*.*", _SourceFolder.."\\MIN\\"..N_FOLDR, true, true, false, true, nil);
Flash.SetVisible("Flash1", false);
ComboBox.AddItem("ComboBox1", N_FOLDR, _SourceFolder.."\\MIN\\"..N_FOLDR);
ListBox.AddItem("ListBox2",N_FOLDR,_SourceFolder.."\\MIN\\"..N_FOLDR);
else
result = Folder.DoesExist(_SourceFolder.."\\MIN\\"..N_FOLDR);
if not result then
Folder.Create(_SourceFolder.."\\MIN\\"..N_FOLDR.."\\");
Flash.SetVisible("Flash1", true);
File.Copy(folder.."\\*.*", _SourceFolder.."\\MIN\\"..N_FOLDR, true, true, false, true, nil);
Flash.SetVisible("Flash1", false);
ComboBox.AddItem("ComboBox1", N_FOLDR, _SourceFolder.."\\MIN\\"..N_FOLDR);
ListBox.AddItem("ListBox2",N_FOLDR,_SourceFolder.."\\MIN\\"..N_FOLDR);
else
result = Dialog.Message("Notice", "هذا المجلد موجود تم إضافتة مسبقا فهل تريد تعديل الإسم ؟", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
if result~=IDNO then
rrs = Dialog.Input("Enter Data", "أكتب الإسم الجديد للمجلد "..N_FOLDR.." الإسم القديم هو", "", MB_ICONQUESTION);
if rrs~="" and rrs~="CANCEL" then
Folder.Create(_SourceFolder.."\\MIN\\"..rrs.."\\");
File.Copy(folder.."\\*.*", _SourceFolder.."\\MIN\\"..rrs, true, true, false, true, nil);
StatusDlg.Show(MB_ICONNONE, false);
StatusDlg.SetMessage(" ......... جارى تغيير إسم المجلد إنتظر قليلا");
x = Application.GetPageScript("RASE", "On Show");
loadstring(x)()
Page.Redraw();
StatusDlg.Hide();
Dialog.Message("شكرا", "تم تغيير إسم المجلد");
elseif rrs=="" and rrs~="CANCEL" then
Dialog.Message("عذرا", "لم يتفير إسم المجلد نظرا لعدم كتابة إسم جديد أكتب الإسم الجديد أولا");
end
end
end
end
else
Dialog.SplashImage("AutoPlay\\Images\\W2G--2.png", 3, true);
end

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

folder = dialog.folderbrowse("open folder", "c:\\");
if (folder ~= "cancel") and (folder ~= "") then
n_foldr = string.splitpath(folder).filename
result = folder.doesexist(_sourcefolder.."\\min");
if not result then
folder.create(_sourcefolder.."\\min\\");
folder.create(_sourcefolder.."\\min\\"..n_foldr.."\\");
flash.setvisible("flash1", true);
file.copy(folder.."\\*.*", _sourcefolder.."\\min\\"..n_foldr, true, true, false, true, nil);
flash.setvisible("flash1", false);
combobox.additem("combobox1", n_foldr, _sourcefolder.."\\min\\"..n_foldr);
listbox.additem("listbox2",n_foldr,_sourcefolder.."\\min\\"..n_foldr);
else
result = folder.doesexist(_sourcefolder.."\\min\\"..n_foldr);
if not result then
folder.create(_sourcefolder.."\\min\\"..n_foldr.."\\");
flash.setvisible("flash1", true);
file.copy(folder.."\\*.*", _sourcefolder.."\\min\\"..n_foldr, true, true, false, true, nil);
flash.setvisible("flash1", false);
combobox.additem("combobox1", n_foldr, _sourcefolder.."\\min\\"..n_foldr);
listbox.additem("listbox2",n_foldr,_sourcefolder.."\\min\\"..n_foldr);
else
result = dialog.message("notice", "هذا المجلد موجود تم إضافتة مسبقا فهل تريد تعديل الإسم ؟", mb_yesno, mb_iconinformation, mb_defbutton1);
if result~=idno then
rrs = dialog.input("enter data", "أكتب الإسم الجديد للمجلد "..n_foldr.." الإسم القديم هو", "", mb_iconquestion);
if rrs~="" and rrs~="cancel" then
folder.create(_sourcefolder.."\\min\\"..rrs.."\\");
file.copy(folder.."\\*.*", _sourcefolder.."\\min\\"..rrs, true, true, false, true, nil);
statusdlg.show(mb_iconnone, false);
statusdlg.setmessage(" ......... جارى تغيير إسم المجلد إنتظر قليلا");
x = application.getpagescript("rase", "on show");
loadstring(x)()
page.redraw();
statusdlg.hide();
dialog.message("شكرا", "تم تغيير إسم المجلد");
elseif rrs=="" and rrs~="cancel" then
dialog.message("عذرا", "لم يتفير إسم المجلد نظرا لعدم كتابة إسم جديد أكتب الإسم الجديد أولا");
end
end
end
end
else
dialog.splashimage("autoplay\\images\\w2g--2.png", 3, true);
end


بارك الله فيك

تمام اخي يعمل بشكل جيد

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

هل ممكن نعدل على هذا الكود ليعطي رسالة خطا في حالة كانت كلمة البحث غير صحيحة

if e_Key== 13 then

ad = ListBox.GetSelected("ListBox1");
if ad ~= nil then

result = Input.GetText("Input1");
if result~="" then
con = ListBox.GetCount("ListBox1");
for i=1, con do
tx = ListBox.GetItemText("ListBox1", i);
if tx~="" then
k,s = string.find(tx, result);
if k~=nil then
ListBox.SelectItem("ListBox1", i);
is_it = Dialog.Message("يوجد نتيجة للبحث", "إنظر إلى الإختيار المحدد فى الليست بوكس هل هو المطلوب ؟", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON1);
if is_it~=IDNO then
break
end
end
end
end
else
Dialog.Message("تنبيه", "لم يتم تحديد اي ملف من قائمة المفات");
end
else
Dialog.Message("تنبيه","لم يتم تحديد عن ماذا تريد البحث");

end
end


في نفس المشروع

هل ممكن ان نمكن المستخدم من حفظ مجلد
او ملف في جهازه

انا عندي هذه الاكواد لكن تعتمد على ملف dll

تحميل الشريط الحالي


sel = ListBox.GetSelected("ListBox1");
if sel~=nil then
list_data = ListBox.GetItemData("ListBox1", sel[1]);
if list_data~="" then
target_folder = Dialog.FolderBrowse("ÍÏÏ ÇáãÌáÏ ÇáãÑÇÏ ÇáÍÝÙ ÝíÉ", _DesktopFolder);
if target_folder ~= "CANCEL" then
ts = INIFile.GetValueNames(_SourceFolder.."\\Downloads.ini", "Files");
if ts~=nil then
for i, s in pairs(ts)do
if s==String.SplitPath(list_data).Filename then
fd = INIFile.GetValue(_SourceFolder.."\\Downloads.ini", "Files", s);
if fd~="" then
sd = File.DoesExist(fd..String.SplitPath(list_data).Ext ension);
if sd then
gs = Dialog.Message("ÊÐßíÑ", "åÐÇ ÇáãÌáÏ Êã ÊÍãíáÉ ãä ÞÈá æãæÌæÏ Ýì äÝÓ ÇáãÓÇÑåá ÊÑíÏ ÊÍãíáÉ ãÑÉ ÃÎÑì ¿", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON2);
if gs==6 then
DialogEx.Show("fill", true, nil, nil);
end
break
else
DialogEx.Show("fill", true, nil, nil);
break
end
end
elseif s~=String.SplitPath(list_data).Filename and i==#ts then
DialogEx.Show("fill", true, nil, nil);
end
end
else
DialogEx.Show("fill", true, nil, nil);
end
else
result = Dialog.Message("ÊÜÜÜæÖíÜÜÍ", "Êã ÇáÛÜÜÜÜÜÜÜÜÜÇÁ ÇáÚãáíÜÜÜÉ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
end
else
Dialog.Message("ÇäÊÈÉ", "íÌÈ ÇáÊÍÏíÏ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end











تحميل المجلد الحالي

MediaPlayer.Pause("Plugin1");
_Selection = ComboBox.GetSelected("ComboBox2");
if _Selection~= -1 then
dt = ComboBox.GetItemData("ComboBox2", _Selection);
destination = Dialog.FolderBrowse("Please select a folder:", "");
if destination ~= "CANCEL" then
ts = INIFile.GetValueNames(_SourceFolder.."\\Downloads.ini", "Folders");
if ts~=nil then
for i, s in pairs(ts)do
if s==String.SplitPath(dt).Filename then
fd = INIFile.GetValue(_SourceFolder.."\\Downloads.ini", "Folders", s);
if fd~="" then
sd = Folder.DoesExist(fd);
if sd then
gs = Dialog.Message("تذكير", "هذا المجلد تم تحميلة من قبل وموجود فى نفس المسارهل تريد تحميلة مرة أخرى ؟", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON2);
if gs==6 then
DialogEx.Show("ALL", true, nil, nil);
end
break
else
DialogEx.Show("ALL", true, nil, nil);
break
end
end
elseif s~=String.SplitPath(dt).Filename and i==#ts then
DialogEx.Show("ALL", true, nil, nil);
end
end
else
DialogEx.Show("ALL", true, nil, nil);
end
else
Dialog.Message("تـــوضيــح", "تم الغـــــــــاء العمليـــة", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
else
--Dialog.Message("انتبة", "يجب التحديد".."\r\n".._Selection, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
Dialog.Message("انتبة", "يجب التحديد", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end






ملفات Dll

في المرفق

[ثامر أبو بلقيس]

ترقيع في الكود المطروح وليس بناء

if e_Key== 13 then
ad = ListBox.GetSelected("ListBox1");
if ad ~= nil then
result = Input.GetText("Input1");
if result~="" then
con = ListBox.GetCount("ListBox1");
for i=1, con do
tx = ListBox.GetItemText("ListBox1", i);
if tx~="" then
k,s = string.find(tx, result);
if k~=nil then
ListBox.SelectItem("ListBox1", i);
is_it = Dialog.Message("يوجد نتيجة للبحث", "إنظر إلى الإختيار المحدد فى الليست بوكس هل هو المطلوب ؟", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON1);
if is_it~=IDNO then
end;end;else
end;end;else
Dialog.Message("تنبيه", "لم يتم تحديد اي ملف من قائمة المفات");
end;else
Dialog.Message("تنبيه","لم يتم تحديد عن ماذا تريد البحث");
end;
if k ~=1 then
Dialog.TimedMessage("", "كلمة البحث غير صحيحة" , 2000, MB_ICONINFORMATION);
end
end

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

ترقيع في الكود المطروح وليس بناء

if e_key== 13 then
ad = listbox.getselected("listbox1");
if ad ~= nil then
result = input.gettext("input1");
if result~="" then
con = listbox.getcount("listbox1");
for i=1, con do
tx = listbox.getitemtext("listbox1", i);
if tx~="" then
k,s = string.find(tx, result);
if k~=nil then
listbox.selectitem("listbox1", i);
is_it = dialog.message("يوجد نتيجة للبحث", "إنظر إلى الإختيار المحدد فى الليست بوكس هل هو المطلوب ؟", mb_yesno, mb_iconquestion, mb_defbutton1);
if is_it~=idno then
break;end;else
input.settext(this, "");
dialog.timedmessage("", "كلمة البحث غير صحيحة" , 2000, mb_iconinformation);break
end;end;end;else
dialog.message("تنبيه", "لم يتم تحديد اي ملف من قائمة المفات");
end;else
dialog.message("تنبيه","لم يتم تحديد عن ماذا تريد البحث");
end;end


بارك الله فيك
الكود يعطي دائمة ان لا توجد نتيجة بالرغم من وجود ما ابحث عنه

[عبود عبود]

هل ممكن نعدل على هذا الكود ليعطي رسالة خطا في حالة كانت كلمة البحث غير صحيحة




فى زر البحث إستبدل الكود بالكود التالى :

--
result = Input.GetText("Input1");
if result~="" then
con = ListBox.GetCount("ListBox1");
for i=1, con do
tx = ListBox.GetItemText("ListBox1", i);
if tx~="" then
k,s = string.find(tx, result);
if k~=nil then
ListBox.SelectItem("ListBox1", i);
is_it = Dialog.Message("يوجد نتيجة للبحث", "إنظر إلى الإختيار المحدد فى الليست بوكس هل هو المطلوب ؟", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON1);
if is_it~=IDNO then
break
end
elseif k==nil and i==con then
Dialog.Message("نتيجة البحث","لم يتم العثور على نتيجة");
end
end
end
else
Dialog.Message("تنبيه","لم يتم تحديد عن ماذا تريد البحث");
end

[عبود عبود]

بالنسبة لحفظ ملف مما يتم إختيارة من الليست بوكس الأول سوف تضع هذه الأكواد فى زر وليكن بإسم حفظ ملف :

--
function copy(Source,Destination,Copied,Total,FileCopied,Fi leTotal)
StatusDlg.SetMeterRange(0, Total);
StatusDlg.SetTitle("عملية حفظ ملفات");
StatusDlg.SetMeterPos(FileCopied);
StatusDlg.SetStatusText(String.SplitPath(Source).F ilename..String.SplitPath(Source).Extension.." جارى حفظ الملف");
return true
end
result = ListBox.GetSelected("ListBox1");
if result~=nil then
result = ListBox.GetItemData("ListBox1", result[1]);
t = Dialog.FolderBrowse(": من فضلك قم بتحديد مكان الحفظ للملف ", _DesktopFolder);
if t~="" and t~="CANCEL" then
StatusDlg.Show(MB_ICONNONE, false);
File.Copy(result, t, true, true, false, true, copy);
StatusDlg.Hide();
Dialog.Message("نتيجة الحفظ","تم الحفظ بنجاح");
end
end


أما بالنسبة لحفظ مجلد بأكملة مما يتم إختيارة من الليست بوكس الثانى تضع هذه الأكواد فى زر وليكن بإسم حفظ مجلد بالكامل :

--
function copy(Source,Destination,Copied,Total,FileCopied,Fi leTotal)
StatusDlg.SetMeterRange(0, Total);
StatusDlg.SetTitle("عملية حفظ ملفات");
StatusDlg.SetMeterPos(FileCopied);
StatusDlg.SetStatusText(String.SplitPath(Source).F ilename..String.SplitPath(Source).Extension.." جارى حفظ الملف");
return true
end
result = ListBox.GetSelected("ListBox2");
if result~=nil then
result = ListBox.GetItemData("ListBox2", result[1]);
t = Dialog.FolderBrowse(": من فضلك قم بتحديد مكان الحفظ للمجلد ", _DesktopFolder);
if t~="" and t~="CANCEL" then
StatusDlg.Show(MB_ICONNONE, false);
File.Copy(result.."\\*.*", t, true, true, false, true, copy);
StatusDlg.Hide();
Dialog.Message("نتيجة الحفظ","تم الحفظ بنجاح");
end
end

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

فى زر البحث إستبدل الكود بالكود التالى :

--
result = input.gettext("input1");
if result~="" then
con = listbox.getcount("listbox1");
for i=1, con do
tx = listbox.getitemtext("listbox1", i);
if tx~="" then
k,s = string.find(tx, result);
if k~=nil then
listbox.selectitem("listbox1", i);
is_it = dialog.message("يوجد نتيجة للبحث", "إنظر إلى الإختيار المحدد فى الليست بوكس هل هو المطلوب ؟", mb_yesno, mb_iconquestion, mb_defbutton1);
if is_it~=idno then
break
end
elseif k==nil and i==con then
dialog.message("نتيجة البحث","لم يتم العثور على نتيجة");
end
end
end
else
dialog.message("تنبيه","لم يتم تحديد عن ماذا تريد البحث");
end



بارك الله فيك

ماذا عن هذه الصورة
هل يمكن حذف المؤشر عليه
علما انني اذا خذفته تختفي الصور التي في الشروع

[عبود عبود]

بارك الله فيك

ماذا عن هذه الصورة
هل يمكن حذف المؤشر عليه
علما انني اذا خذفته تختفي الصور التي في الشروع

مش شايف الصورة كويس " الصورة حجمها صغير جدا " ومن إيه " إيه سبب ظهور هذا يعنى بتعمل إية وضح أكتر "

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

بارك الله فيك
بالنسبة للزر حفظ مجلد
لايحفظ المجلد باسمه بل يحفظ المفات على المكان المحدد مباشر
دون ان تكون داخل مجلدها الاصلي

[عبود عبود]

بارك الله فيك
بالنسبة للزر حفظ مجلد
لايحفظ المجلد باسمه بل يحفظ المفات على المكان المحدد مباشر
دون ان تكون داخل مجلدها الاصلي

بسيطة إستبدل ما سبق بما هو آت :

--
function copy(Source,Destination,Copied,Total,FileCopied,Fi leTotal)
StatusDlg.SetMeterRange(0, Total);
StatusDlg.SetTitle("ÚãáíÉ ÍÝÙ ãáÝÇÊ");
StatusDlg.SetMeterPos(FileCopied);
StatusDlg.SetStatusText(String.SplitPath(Source).F ilename..String.SplitPath(Source).Extension.." ÌÇÑì ÍÝÙ ÇáãáÝ");
return true
end
result = ListBox.GetSelected("ListBox2");
if result~=nil then
name = ListBox.GetItemText("ListBox2", result[1]);
result = ListBox.GetItemData("ListBox2", result[1]);
t = Dialog.FolderBrowse(": ãä ÝÖáß Þã ÈÊÍÏíÏ ãßÇä ÇáÍÝÙ ááãáÝ ", _DesktopFolder);
if t~="" and t~="CANCEL" then
StatusDlg.Show(MB_ICONNONE, false);
Folder.Create(t.."\\"..name);
File.Copy(result.."\\*.*", t.."\\"..name, true, true, false, true, copy);
StatusDlg.Hide();
Dialog.Message("äÊíÌÉ ÇáÍÝÙ","Êã ÇáÍÝÙ ÈäÌÇÍ");
end
end

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

يظهر مجلد باسم
Rename2017

الصورة


https://e.top4top.net/p_4691jsy11.png

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

بسيطة إستبدل ما سبق بما هو آت :

--
function copy(source,destination,copied,total,filecopied,fi letotal)
statusdlg.setmeterrange(0, total);
statusdlg.settitle("ÚãáíÉ ÍÝÙ ãáÝÇÊ");
statusdlg.setmeterpos(filecopied);
statusdlg.setstatustext(string.splitpath(source).f ilename..string.splitpath(source).extension.." ÌÇÑì ÍÝÙ ÇáãáÝ");
return true
end
result = listbox.getselected("listbox2");
if result~=nil then
name = listbox.getitemtext("listbox2", result[1]);
result = listbox.getitemdata("listbox2", result[1]);
t = dialog.folderbrowse(": ãä ÝÖáß Þã ÈÊÍÏíÏ ãßÇä ÇáÍÝÙ ááãáÝ ", _desktopfolder);
if t~="" and t~="cancel" then
statusdlg.show(mb_iconnone, false);
folder.create(t.."\\"..name);
file.copy(result.."\\*.*", t.."\\"..name, true, true, false, true, copy);
statusdlg.hide();
dialog.message("äÊíÌÉ ÇáÍÝÙ","Êã ÇáÍÝÙ ÈäÌÇÍ");
end
end



الكود يعمل بشكل جيد
لكن في رموز غريبة

[عبود عبود]

يظهر مجلد باسم
rename2017

الصورة


https://e.top4top.net/p_4691jsy11.png


لم توضح لى متى يظهر هذا المجلد ولكن واضح إنه عند إضافة مجلد جديد وإسمه موجود مسبقا فعلى ذلك قم بإستبدال الكود الموجود فى زر إضافة مجلد بما هو آت :

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

[عبود عبود]

الكود يعمل بشكل جيد
لكن في رموز غريبة

قم بنسخ الكود من ملف التكست فى المرفقات فى زر حفظ مجلد طبعا إحذف أى أكواد قديمة فى الزر أولا " لمنع الأخطاء " يا عم الحج :abc_113:

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

لم توضح لى متى يظهر هذا المجلد ولكن واضح إنه عند إضافة مجلد جديد وإسمه موجود مسبقا فعلى ذلك قم بإستبدال الكود الموجود فى زر إضافة مجلد بما هو آت :

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

بارك الله فيك
الملف يظهر عند تصدير المشروع
حتى لو لم اضف اي مجلد

رحمك الله اتعبتك معي

[عبود عبود]

بارك الله فيك
الملف يظهر عند تصدير المشروع
حتى لو لم اضف اي مجلد

رحمك الله اتعبتك معي


إرفع لى آخر ملف تعمل عليه الآن للنظر فيه أو التعديل عليه

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

اعتذر عن رفع المف اليوم
لانه يوجد عندنا خلل ب عام في الانتر ارفعه
ان شاء الله عند اصلاح الخلل

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

إرفع لى آخر ملف تعمل عليه الآن للنظر فيه أو التعديل عليه

الحمد لله بعدعناء تمكنت من رفعه

تفضل

https://up.top4top.net/downloadf-46986lds1-zip.html

[عبود عبود]

تمام كويس :abc_152:
هل هناك مشاكل تظهر معك ؟

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

تمام كويس :abc_152:
هل هناك مشاكل تظهر معك ؟


بارك الله فيك
بقي ان ننزع ان امكن الملف الذي تحت اسم Rename2017

وكذلك ان امكن ان نضيف خاصة الى حفظ الملف او المجلد من الاسطوانة الى الجهاز
وهي التعرف على وجود الملف او المجلد وامكانية تغير الاسم

[ثامر أبو بلقيس]

مجرد تساؤل قلت ربما اصدارات الوينداوز هي الاخرى صارت ترفض بعض الاكواد

سؤالي بسيط ما الخلل الذي رأيته في هذا الترقيع بخصوص البحث ؟
و المطروح منذ مدة هذا إن قرأته
http://www.abc4web.net/vb/showpost.php?p=311226&postcount=54

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

مجرد تساؤل قلت ربما اصدارات الوينداوز هي الاخرى صارت ترفض بعض الاكواد

سؤالي بسيط ما الخلل الذي رأيته في هذا الترقيع بخصوص البحث ؟
و المطروح منذ مدة هذا إن قرأته
http://www.abc4web.net/vb/showpost.php?p=311226&postcount=54

بارك الله فيك
هذا مايظهر لي

https://c.top4top.net/p_47046s071.gif

[ثامر أبو بلقيس]

إذ توفر لديكم الوقت ممكن تكتب من خلال برنامجك الكود الذي زرع في أنبوت
البحث أي إعادة كتابته من برنامجك و الموافق لما يحدث في الصورة المتحركة

مشكور

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

إذ توفر لديكم الوقت ممكن تكتب من خلال برنامجك الكود الذي زرع في أنبوت
البحث أي إعادة كتابته من برنامجك و الموافق لما يحدث في الصورة المتحركة

مشكور

تفضل

if e_Key== 13 then
ad = ListBox.GetSelected("ListBox1");
if ad ~= nil then
result = Input.GetText("Input1");
if result~="" then
con = ListBox.GetCount("ListBox1");
for i=1, con do
tx = ListBox.GetItemText("ListBox1", i);
if tx~="" then
k,s = string.find(tx, result);
if k~=nil then
ListBox.SelectItem("ListBox1", i);
is_it = Dialog.Message("يوجد نتيجة للبحث", "إنظر إلى الإختيار المحدد فى الليست بوكس هل هو المطلوب ؟", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON1);
if is_it~=IDNO then
end;end;else
end;end;else
Dialog.Message("تنبيه", "لم يتم تحديد اي ملف من قائمة المفات");
end;else
Dialog.Message("تنبيه","لم يتم تحديد عن ماذا تريد البحث");
end;
if k ~=1 then
Dialog.TimedMessage("", "كلمة البحث غير صحيحة" , 2000, MB_ICONINFORMATION);
end
end

[ثامر أبو بلقيس]

الكود يزرع في الانبوت 1 و ليس في الانبوت 2

موفق :abc_102:

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

الكود يزرع في الانبوت 1 و ليس في الانبوت 2

موفق :abc_102:

نفس المشكلة بارك الله فيك

[عبود عبود]

نفس المشكلة بارك الله فيك

كده الأمور تخطلط ....... ألم أعدل لك على الكود للعمل بالطريقة المطلوبة ؟

[ثامر أبو بلقيس]

لالا من المؤكد أنك تابعت الموضوع من الأول و تكون أكوادك أكثر دقة

فقط كنت أسأل سؤالا جانبيا لأوجه الأخ محمد للبحث و فهم كل ما يقدم له

لأن بالطريقة هاته نسخ ولصق لن يتقدم خطوة في البرمجة فجل الأسئلة حول ليستبوكس أو البحث أو ملفات mp3

و كأنها تتكرر في كل مرة و بالتالي فهنا الغاية هي الانجاز فقط

التعلم لا يكون أثناء مرحلة الإنجاز مشكورين جميعا يبدو أني سببت تشتت في المعلومة:abc_138:

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

كده الأمور تخطلط ....... ألم أعدل لك على الكود للعمل بالطريقة المطلوبة ؟

بارك الله فيك الاخ عبود

الكود يعمل بشكل جيد

لكن اجبت على تسائل الاخ بلقيس

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

لالا من المؤكد أنك تابعت الموضوع من الأول و تكون أكوادك أكثر دقة

فقط كنت أسأل سؤالا جانبيا لأوجه الأخ محمد للبحث و فهم كل ما يقدم له

لأن بالطريقة هاته نسخ ولصق لن يتقدم خطوة في البرمجة فجل الأسئلة حول ليستبوكس أو البحث أو ملفات mp3

و كأنها تتكرر في كل مرة و بالتالي فهنا الغاية هي الانجاز فقط

التعلم لا يكون أثناء مرحلة الإنجاز مشكورين جميعا يبدو أني سببت تشتت في المعلومة:abc_138:

بارك الله فيك اخي بلقيس
لم تسبب اي تشتت انا فهمتك
تريد مني افهم مايقدم لي من اكواد

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

[عبود عبود]

بارك الله فيك الاخ عبود

الكود يعمل بشكل جيد

لكن اجبت على تسائل الاخ بلقيس
تمام تمام ....... جزاك الله خيرا على التوضيح