إعـــــــلان

**عبود عبود عبود عبود** · 14-04-2017, 11:42 PM

المشاركة الأصلية بواسطة محمد بن أحمد أبو حذيفة مشاهدة المشاركة

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

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

كود:

--
function copy(Source,Destination,Copied,Total,FileCopied,FileTotal)
      StatusDlg.SetMeterRange(0, Total);
      StatusDlg.SetTitle("&#218;&#227;&#225;&#237;&#201; &#205;&#221;&#217; &#227;&#225;&#221;&#199;&#202;");
      StatusDlg.SetMeterPos(FileCopied);
      StatusDlg.SetStatusText(String.SplitPath(Source).Filename..String.SplitPath(Source).Extension.."     &#204;&#199;&#209;&#236; &#205;&#221;&#217; &#199;&#225;&#227;&#225;&#221;");
     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(":   &#227;&#228; &#221;&#214;&#225;&#223; &#222;&#227; &#200;&#202;&#205;&#207;&#237;&#207; &#227;&#223;&#199;&#228; &#199;&#225;&#205;&#221;&#217; &#225;&#225;&#227;&#225;&#221; ", _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("&#228;&#202;&#237;&#204;&#201; &#199;&#225;&#205;&#221;&#217;","&#202;&#227; &#199;&#225;&#205;&#221;&#217; &#200;&#228;&#204;&#199;&#205;");
    end
end

محمد بن أحمد أبو حذيفة · 14-04-2017, 11:42 PM

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

الصورة

محمد بن أحمد أبو حذيفة · 14-04-2017, 11:44 PM

المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة

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

كود:

--
function copy(source,destination,copied,total,filecopied,filetotal)
      statusdlg.setmeterrange(0, total);
      statusdlg.settitle("&#218;&#227;&#225;&#237;&#201; &#205;&#221;&#217; &#227;&#225;&#221;&#199;&#202;");
      statusdlg.setmeterpos(filecopied);
      statusdlg.setstatustext(string.splitpath(source).filename..string.splitpath(source).extension.."     &#204;&#199;&#209;&#236; &#205;&#221;&#217; &#199;&#225;&#227;&#225;&#221;");
     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(":   &#227;&#228; &#221;&#214;&#225;&#223; &#222;&#227; &#200;&#202;&#205;&#207;&#237;&#207; &#227;&#223;&#199;&#228; &#199;&#225;&#205;&#221;&#217; &#225;&#225;&#227;&#225;&#221; ", _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("&#228;&#202;&#237;&#204;&#201; &#199;&#225;&#205;&#221;&#217;","&#202;&#227; &#199;&#225;&#205;&#221;&#217; &#200;&#228;&#204;&#199;&#205;");
    end
end

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

**عبود عبود عبود عبود** · 14-04-2017, 11:55 PM

المشاركة الأصلية بواسطة محمد بن أحمد أبو حذيفة مشاهدة المشاركة

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

الصورة

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

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

الملفات المرفقة

إضافة مجلد.txt (2.5 كيلوبايت, 2 مشاهدات)

**عبود عبود عبود عبود** · 14-04-2017, 11:59 PM

المشاركة الأصلية بواسطة محمد بن أحمد أبو حذيفة مشاهدة المشاركة

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

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

الملفات المرفقة

حفظ مجلد.txt (913 بايت, 4 مشاهدات)

محمد بن أحمد أبو حذيفة · 15-04-2017, 12:03 AM

المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة

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

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

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

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

**عبود عبود عبود عبود** · 15-04-2017, 12:11 AM

المشاركة الأصلية بواسطة محمد بن أحمد أبو حذيفة مشاهدة المشاركة

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

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

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

محمد بن أحمد أبو حذيفة · 15-04-2017, 01:22 AM

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

محمد بن أحمد أبو حذيفة · 15-04-2017, 01:37 AM

المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة

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

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

تفضل

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

**عبود عبود عبود عبود** · 15-04-2017, 04:06 AM

تمام كويس

هل هناك مشاكل تظهر معك ؟

محمد بن أحمد أبو حذيفة · 15-04-2017, 07:30 AM

المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة

تمام كويس

هل هناك مشاكل تظهر معك ؟

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

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 15-04-2017, 01:57 PM

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

سؤالي بسيط ما الخلل الذي رأيته في هذا الترقيع بخصوص البحث ؟
و المطروح منذ مدة هذا إن قرأته
http://sites.ienajah.com/vb2/showpost.p...6&postcount=54

محمد بن أحمد أبو حذيفة · 15-04-2017, 06:50 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

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

سؤالي بسيط ما الخلل الذي رأيته في هذا الترقيع بخصوص البحث ؟
و المطروح منذ مدة هذا إن قرأته
http://sites.ienajah.com/vb2/showpost.p...6&postcount=54

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 15-04-2017, 08:25 PM

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

مشكور

محمد بن أحمد أبو حذيفة · 15-04-2017, 11:23 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

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

مشكور

تفضل

[HTML]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[/HTML]

إعـــــــلان

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

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك