استدعاء اسماء المجلدات فقط لـــComboBox

[ياسرهتهت]

بسم الله الرحمن الرحيم
ما هو الكود المناسب لاستدعاء اسماء مجلدات (فولدر) موجود في مجلد
مع العلم ان كل المجلدات تحتوي على ملفات
لكن اريد فقط استدعاء اسماء المجلدات فقط دون الملفات للــــ ComboBox

http://www.abc4web.net/vb/images/icons/icon_z.gif
http://www.abc4web.net/vb/images/icons/notepad.gif موفقين بإذن الله ... لكم مني أجمل تحية . http://www.abc4web.net/vb/images/icons/notepad.gif

[عبود عبود]

طيب نبسط الحل شوية

مجلد يعنى إية ؟ يعنى folder
والبحث يعنى إية ؟ يعنى find

طيب يعنى هل نمتلك بحث فى مجلد ؟ آه يا عم عندنا فى أوامر البرنامج Folder.Find

طيب وإية شكل هذا الكود ؟ شكلة كدة يا عم الحج :

http://i.imgur.com/eScCvbK.png

حيث أن 1 هو مسار المجلد المراد إجراء عملية البحث فية

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

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

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


طيب نأخذ مثال بسيط كالتالى :

--
result = Folder.Find(_SourceFolder, "*", true, nil);
Debug.ShowWindow(true);
for i,s in pairs(result)do
Debug.Print(s.."\r\n");
end

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

وإلى هنا قد تتسائل يا عم أنا عايز أسماء المجلدات بس وبدون مسارات فأقول لك بسيطة يا مدير إنت تريد التعامل مع المسارات ؟
هتقول أيوة يا عم لخص
أقولك هو يعنى إية مسار ؟ يعنى Path و Path ده عبارة عن نص يعنى سترينج String
ونريد إستخلاص إسم من هذا المسار النصى يعنى هنعمل Split يعنى هنعمل شوية تقسيم للمسار النصى ده
طيب يا عم هات من الآخر وقول ممكن نستخدم الدالة التى تتعامل مع النصوص ونستخدم منها الكود الذى يتعامل مع المسارات اللى هو إسمة String.SplitPath ؟

أتمنى أن تستطيع الإصطياد للسمك بنفسك بعد ما سبق . :abc_051:

ه أسيبك تكمل إنت التعامل وإيجاد النتيجة فإن تعثر عليك الأمر نستكمل الكلام ؟ :abc_065:

[ياسرهتهت]

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

بارك الله فيك استاذ عبود
شرح واضح ورائع جدا

result = Folder.Find(_SourceFolder, "*", true, nil);
Debug.ShowWindow(true);
for i,s in pairs(result)do
split_folder_path = String.SplitPath(s);

Debug.Print(split_folder_path.Filename.."\r\n");
end

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

.

[فرح صالحي]

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

بارك الله فيك استاذ عبود
شرح واضح ورائع جدا

result = folder.find(_sourcefolder, "*", true, nil);
debug.showwindow(true);
for i,s in pairs(result)do
split_folder_path = string.splitpath(s);

debug.print(split_folder_path.filename.."\r\n");
end

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

.

الكود يكرر أسماء المجلدات في كل عملية استدعاء بدون حذف أسماء المجلدات التي وقع استدعائها سابقا

[ياسرهتهت]

الكود يكرر أسماء المجلدات في كل عملية استدعاء بدون حذف أسماء المجلدات التي وقع استدعائها سابقا

-------------
تقصد في حالة استدعائها للــــ ListBox اوComboBox
تتكرر في كل ضغط ؟؟http://www.abc4web.net/vb/images/icons/eye.gif

ضع في بداية الكود ما يمسح القائمة السابقة
ListBox

ListBox.DeleteItem("ListBox1", LB_ALLITEMS);

ComboBox

ComboBox.ResetContent("ComboBox1");

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

[فرح صالحي]

-------------
تقصد في حالة استدعائها للــــ ListBox اوComboBox
تتكرر في كل ضغط ؟؟http://www.abc4web.net/vb/images/icons/eye.gif

ضع في بداية الكود ما يمسح القائمة السابقة
ListBox

ListBox.DeleteItem("ListBox1", LB_ALLITEMS);

ComboBox

ComboBox.ResetContent("ComboBox1");

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

شكرا جزيلا :abc_152:

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

بسم الله الرحمن الرحيم
ما هو الكود المناسب لاستدعاء اسماء مجلدات (فولدر) موجود في مجلد
مع العلم ان كل المجلدات تحتوي على ملفات
لكن اريد فقط استدعاء اسماء المجلدات فقط دون الملفات للــــ ComboBox

http://www.abc4web.net/vb/images/icons/icon_z.gif
http://www.abc4web.net/vb/images/icons/notepad.gif موفقين بإذن الله ... لكم مني أجمل تحية . http://www.abc4web.net/vb/images/icons/notepad.gif


بارك الله فيك

هل ممكن

اذا كانت هناك مجلدات بها ملفات صوتية

اريد استخدام ليست بوكس واحد وكموبوكس واحد

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

يستدعي ما بداخله الى الليست بوكي

الملف مرفق

http://up.top4top.net/downloadf-252azes1-zip.html

[عبود عبود]

بارك الله فيك

هل ممكن

اذا كانت هناك مجلدات بها ملفات صوتية

اريد استخدام ليست بوكس واحد وكموبوكس واحد

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

يستدعي ما بداخله الى الليست بوكي

الملف مرفق

http://up.top4top.net/downloadf-252azes1-zip.html

تفضل أخى وتذكر أنه لا يشترط أى تسمية للمجلدات أو الملفات فكما تريد ضع ما تريد والصيغة للملفات هى صيغة الفيديو 3gp


http://www.mediafire.com/download/yev33kfikrv1d9b/ComboBox+and+ListBox.apz

[محمد سامر]

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

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

تفضل أخى وتذكر أنه لا يشترط أى تسمية للمجلدات أو الملفات فكما تريد ضع ما تريد والصيغة للملفات هى صيغة الفيديو 3gp


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


بارك الله فيك وجزاك الله خيرا

[ياسرهتهت]

تفضل أخى وتذكر أنه لا يشترط أى تسمية للمجلدات أو الملفات فكما تريد ضع ما تريد والصيغة للملفات هى صيغة الفيديو 3gp


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

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


Audio_Fold = Folder.Find(_SourceFolder.."\\AutoPlay\\Audio\\", "*", false, nil);

او

Audio_Fold = Folder.Find("AutoPlay\\Audio", "AutoPlay*", false, nil);

اقصد _SourceFolder
متي يجب استخدامها ومتي لا ارجو التوضيح؟؟؟

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

[عبود عبود]

من الأفضل التعامل بها لماذا ؟

لأنها هى من ضمن المتغيرات العامة وتعطى المسار الكامل شاملا قرص التشغيل إذا كان c أو d أو أى قرص داخل الكمبيوتر

أما إذا لم تستخدمها وكتبت مسار يبدأ من من مجلد الأتوبلاى


_SourceFolder
The full path to the folder that the AutoPlay application was run from (e.g. "C:\Downloads" or "D:").

[ياسرهتهت]

بسم الله الرحمن الرحيم
بـــــارك الله فيك استاذ عبود وصلت المعلومة
اي لضمان عدم حدوث خلل في حالة نظام التشغيل مثبت على قرص غير الافتراضي ( c)
موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152:

[عبود عبود]

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

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

[ياسرهتهت]

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

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

---------------------------
بسم الله الرحمن الرحيم
استاذ عبود اريد ان استغل وجودك شر استغلال
وان تلقي نظره على هذا الكود وتخبرني اين الخطـــــــــــــــــــــ ــــأ ؟

new_folder = Dialog.Input("new folder ", "Enter the name of the folder", "", MB_ICONQUESTION);
search_TEXT = ListBox.FindItem("ListBox1", -1, LB_BYTEXT, new_folder);
if search_TEXT then
Dialog.Message("Whatch out", "Name not on the list", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
alternative__name = Dialog.Input("another name", "alternative name:", "", MB_ICONQUESTION);
Folder.Create(_SourceFolder .. "\\FUNs\\"..alternative__name);
else
Folder.Create(_SourceFolder .. "\\FUNs\\"..new_folder);
end


للتوضيح مكان المجلد ( FUNs )
http://b.top4top.net/p_2525j0p1.jpg




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

[المـهاجر]

اي لضمان عدم حدوث خلل في حالة نظام التشغيل مثبت على قرص غير الافتراضي ( c)


لا علاقة لقرص النظام بالدالة المذكورة
بواسطة _SourceFolder او بدونها يتحقق الكود دائما بشكل صحيح مهما كان قرص التثبيت

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

[عبود عبود]

---------------------------
بسم الله الرحمن الرحيم
استاذ عبود اريد ان استغل وجودك شر استغلال
وان تلقي نظره على هذا الكود وتخبرني اين الخطـــــــــــــــــــــ ــــأ ؟

new_folder = dialog.input("new folder ", "enter the name of the folder", "", mb_iconquestion);
search_text = listbox.finditem("listbox1", -1, lb_bytext, new_folder);
if search_text then
dialog.message("whatch out", "name not on the list", mb_ok, mb_iconinformation, mb_defbutton1);
alternative__name = dialog.input("another name", "alternative name:", "", mb_iconquestion);
folder.create(_sourcefolder .. "\\funs\\"..alternative__name);
else
folder.create(_sourcefolder .. "\\funs\\"..new_folder);
end


للتوضيح مكان المجلد ( funs )
http://b.top4top.net/p_2525j0p1.jpg




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

كى أعلم ما هو الخطأ فى الكود يجب أن أعلم ما هو المطلوب أن يؤدية الكود " الفكرة التى تريد تنفيذها ما هى بالشرح طبعا "

لأن تعريف الكود الصحيح هو الكود الذى يؤدى الوظيفة المطلوبة منه على الوجة الأكمل و الأدق وبدون أن يظهر به رسائل أخطاء


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

[ياسرهتهت]

كى أعلم ما هو الخطأ فى الكود يجب أن أعلم ما هو المطلوب أن يؤدية الكود " الفكرة التى تريد تنفيذها ما هى بالشرح طبعا "

لأن تعريف الكود الصحيح هو الكود الذى يؤدى الوظيفة المطلوبة منه على الوجة الأكمل و الأدق وبدون أن يظهر به رسائل أخطاء


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

-------------------------------
بسم الله الرحمن الرحيم
استاذ / عبود
كل عام وانت واسرتك الكريمة بخير وصحة وسلامة

بالنسبة للفكرة

المجلد ( FUNs ) يحتوي على مجلدات
هذة المجلدات تظهر اسمائها في ليست بكس
---
في الكود اريد اضافة مجلد جديد للمجلدات الموجودة (FUNs)
----

new_folder = dialog.input("new folder ", "enter the name of the folder", "", mb_iconquestion);
search_text = listbox.finditem("listbox1", -1, lb_bytext, new_folder);
if search_text then
dialog.message("whatch out", "name not on the list", mb_ok, mb_iconinformation, mb_defbutton1);
alternative__name = dialog.input("another name", "alternative name:", "", mb_iconquestion);
folder.create(_sourcefolder .. "\\funs\\"..alternative__name);
else
folder.create(_sourcefolder .. "\\funs\\"..new_folder);
end




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

:abc_102:ولا ادري اين خطئي في هذا الكود تظهر الرسالة في الحالتين سوء موجود من قيل او غير موجود؟


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

[عبود عبود]

إذن listbox.finditem ليس له فائدة طالما سوف تبحث عن المجلدات فى المجلد funs ؟

[عبود عبود]

عموما سوف أعدل لك الكود فى الحالتين إذا كان البحث فى الليست بوكس أو كان البحث فى مجلد funs

إنتظر قليلا

[عبود عبود]

انقطاع الكهرباء سبب التأخر فى رفع أول طريقة

https://www.mediafire.com/?7q1q2k77n7odw6q

[عبود عبود]

أين أنت ؟ أين المتابعة ؟

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

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

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

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

تفضل أخى وتذكر أنه لا يشترط أى تسمية للمجلدات أو الملفات فكما تريد ضع ما تريد والصيغة للملفات هى صيغة الفيديو 3gp


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

بارك الله فيك

كيف يتم ربط 2 كموبوبكس

اي نفس الملف لكن المرة هذه كون مجلد في مجلد

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

[ياسرهتهت]

أين أنت ؟ أين المتابعة ؟
----------------------
بسم الله الرحمن الرحيم
شكرا جزيلا اخي عبود
انا متابع معك لكن النت يضعف عندي احياننا
لدرجة حتي الرد او تحميل ملف صغير يصبح مستحيل
اشكرك مره اخر على الملف الرائع
موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152::abc_152:

[المـهاجر]

هذا هو الكود خاصتك

new_folder = Dialog.Input("new folder ", "Enter the name of the folder", "", MB_ICONQUESTION);
search_TEXT = ListBox.FindItem("ListBox1", -1, LB_BYTEXT, new_folder);
if search_TEXT then
Dialog.Message("Whatch out", "Name not on the list", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
alternative__name = Dialog.Input("another name", "alternative name:", "", MB_ICONQUESTION);
Folder.Create(_SourceFolder .. "\\FUNs\\"..alternative__name);
else
Folder.Create(_SourceFolder .. "\\FUNs\\"..new_folder);
end


نفس كود حضرتك بعد التعديل المناسب
new_folder = Dialog.Input("new folder ", "enter the name of the folder", "", mb_iconquestion);
search_text = ListBox.FindItem("listbox1", -1, lb_bytext, new_folder);
if search_tex==-1 then
Folder.Create(_SourceFolder .. "\\funs\\"..new_folder);
else
Dialog.Message("whatch out", "Duplcate name", mb_ok, mb_iconinformation, mb_defbutton1)
alternative__name = Dialog.Input("another name", "alternative name:", "", mb_iconquestion);
Folder.Create(_SourceFolder .. "\\funs\\"..alternative__name);
end

اين الخطـــــــــــــــــــــ ــــأ ؟


تريد ان تعرف أين الخطأ فى اكوادك ؟

راقب جيدا
هنا تحديدا الخطأ
search_TEXT = ListBox.FindItem("ListBox1", -1, LB_BYTEXT, new_folder);
if search_TEXT then

سأختصر لك و لنضع قاعدة
لا يمكنك استخدام
if xxx then
إلا لو كانت xxx ناتجة من دالة ترجع بوليان (False أو True)
لكن الدالة ListBox.FindItem لا ترجع بوليان
تحياتى
:abc_152:

[ياسرهتهت]

هذا هو الكود خاصتك

نفس كود حضرتك بعد التعديل المناسب
new_folder = Dialog.Input("new folder ", "enter the name of the folder", "", mb_iconquestion);
search_text = ListBox.FindItem("listbox1", -1, lb_bytext, new_folder);
if search_tex==-1 then
Folder.Create(_SourceFolder .. "\\funs\\"..new_folder);
else
Dialog.Message("whatch out", "Duplcate name", mb_ok, mb_iconinformation, mb_defbutton1)
alternative__name = Dialog.Input("another name", "alternative name:", "", mb_iconquestion);
Folder.Create(_SourceFolder .. "\\funs\\"..alternative__name);
end



تريد ان تعرف أين الخطأ فى اكوادك ؟

راقب جيدا
هنا تحديدا الخطأ
search_TEXT = ListBox.FindItem("ListBox1", -1, LB_BYTEXT, new_folder);
if search_TEXT then

سأختصر لك و لنضع قاعدة
لا يمكنك استخدام
if xxx then
إلا لو كانت xxx ناتجة من دالة ترجع بوليان (False أو True)
لكن الدالة ListBox.FindItem لا ترجع بوليان
تحياتى
:abc_152:
------------------------------------------------
بسم الله الرحمن الرحيم

شكرا استاذ / المهاجر على هذا التوضيح
لكن احتاج توضيح اكثر اليس هنا
search_TEXT = ListBox.FindItem("ListBox1", -1, LB_BYTEXT, new_folder);

انا ابحث عن كلمة في قائمة
ان كانت موجودة = True
اذا غير موجودة = False

واذا كان هذا الكلام غير صحيح كما ذكرت
بماذا ترجع الداله؟؟؟

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

[المـهاجر]

لكن احتاج توضيح اكثر اليس هنا
search_TEXT = ListBox.FindItem("ListBox1", -1, LB_BYTEXT, new_folder);

انا ابحث عن كلمة في قائمة
ان كانت موجودة = True
اذا غير موجودة = False


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


واذا كان هذا الكلام غير صحيح كما ذكرت
بماذا ترجع الداله؟؟؟


هذه الدالة تحديدا ترجع إما رقم الاندكس و اذا لم تجد نتائج فإنها ترجع -1 (سالب واحد)
نعود للكود الخاص بك
شرطك فى كودك كما هو بدون تعديل يرجع اما رقم اندكس او -1 و فى الحالتين هو دائما true و لا يكون false أبدا

:abc_102:ولا ادري اين خطئي في هذا الكود تظهر الرسالة في الحالتين سوء موجود من قيل او غير موجود؟


اظن السبب اصبح واضح

إذن لا يصلح كشرط يتفرع بعده الكود لإتجاهين
لذلك فالسيناريو الصحيح هو ان تشترط وجود -1 (السالب واحد) فهو القيمة الوحيدة المضمون وجودها او عدم وجودها
تحياتى
:abc_152:

[ياسرهتهت]

إذن لا يصلح كشرط يتفرع بعده الكود لإتجاهين
لذلك فالسيناريو الصحيح هو ان تشترط وجود -1 (السالب واحد) فهو القيمة الوحيدة المضمون وجودها او عدم وجودها
تحياتى
:abc_152:
================
بسم الله الرحمن الرحيم

شكراً لك وصلت المعلومة
موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152:

[المـهاجر]

https://www.indigorose.com/webhelp/ams/Program_Reference/Actions/ListBox.FindItem.htm

حسنا
كلنا ننسي احيانا (و اولكم أنا)
ما هى مخرجات هذه الدالة ؟؟؟؟ و ما هى مخرجات تلك ؟؟؟
يمكننا دائما فى اى دالة ان نضغط على السطر المشار إليه فى الصورة المرفقة
لنجد المخرجات فى القسم Returns

[فرح صالحي]

https://www.indigorose.com/webhelp/ams/Program_Reference/Actions/ListBox.FindItem.htm

حسنا
كلنا ننسي احيانا (و اولكم أنا)
ما هى مخرجات هذه الدالة ؟؟؟؟ و ما هى مخرجات تلك ؟؟؟
يمكننا دائما فى اى دالة ان نضغط على السطر المشار إليه فى الصورة المرفقة
لنجد المخرجات فى القسم Returns

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

[عبود عبود]

أنا فى الشغل منذ يومين
يا أستاذ محمد عندما أعود غدا نستكمل معكم

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

أنا فى الشغل منذ يومين
يا أستاذ محمد عندما أعود غدا نستكمل معكم

الله اعينك
ان شاء الله تعالى

[عبود عبود]

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

تفضل أخى فى المرفقات


http://www.abc4web.net/vb/attachment.php?attachmentid=3328&d=1473944787

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

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

تفضل أخى فى المرفقات


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

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

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

http://up.top4top.net/downloadf-258ih991-rar.html

[المـهاجر]

الاستايل المطبق حاليا فى المنتدى يعانى صعوبة فى الارفاق
الأفضل الاستايل الأحمر للارفاق

[عبود عبود]

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

http://up.top4top.net/downloadf-258ih991-rar.html


زيادة الخير خيرين :abc_138:


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


عموما تم تعديل المشاركة السابقة لوضع المرفق بعدما أخذت اللينك الخاص بة :abc_152:

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

زيادة الخير خيرين :abc_138:


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


عموما تم تعديل المشاركة السابقة لوضع المرفق بعدما أخذت اللينك الخاص بة :abc_152:


بارك الله فيك

لكن الرابط خطأ

[ياسرهتهت]

بارك الله فيك

لكن الرابط خطأ

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

هذا رابط تحميل ملف الاستاذ / عبود
بعد اختازل ملف الفيديو المرفق الي 6 ثواني لقليل الحجم
ليسهل الرفع

http://up.top4top.net/downloadf-258jy5j1-rar.html

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

---

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

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

[عبود عبود]

بارك الله فيك

لكن الرابط خطأ

على سيرفر الميديا فير

https://www.mediafire.com/?s9imt1su8yzrw73

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

بارك الله فيك

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

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

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

اسال الله ان لا اكون اثقلت عليكم

لدي استفسار اخر

هذه الكودج لحفظ صورة من كموبوكس


if NameSelect~=nil then
result = Dialog.FileBrowse(false, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", String.SplitPath(NameSelect).Filename, "mp3", false, false);
if result[1]~="CANCEL" then
File.Copy(_SourceFolder.."\\AutoPlay\\Audio\\"..NameSelect, result[1], true, true, false, true, nil);
end
else
Dialog.Message("تنبيـــــــه", "إختـــــر سورة أولا", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end


لكن كيف يتم حفظ مجلد كلمل من كموبوكس

ايضا كيف ي حفظ سورة من لست بوكس اذا كان الملف موجود
تحت مجلد

اي مصدر الملف

المجلد الرئسي / المجلد اثانتوي / السورة

[ياسرهتهت]

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

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

اسال الله ان لا اكون اثقلت عليكم

لدي استفسار اخر

هذه الكودج لحفظ صورة من كموبوكس


if NameSelect~=nil then
result = Dialog.FileBrowse(false, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", String.SplitPath(NameSelect).Filename, "mp3", false, false);
if result[1]~="CANCEL" then
File.Copy(_SourceFolder.."\\AutoPlay\\Audio\\"..NameSelect, result[1], true, true, false, true, nil);
end
else
Dialog.Message("تنبيـــــــه", "إختـــــر سورة أولا", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end


لكن كيف يتم حفظ مجلد كلمل من كموبوكس

ايضا كيف ي حفظ سورة من لست بوكس اذا كان الملف موجود
تحت مجلد

اي مصدر الملف

المجلد الرئسي / المجلد اثانتوي / السورة
============================
بسم الله الرحمن الرحيم

اتمنا ان اكون فهمت طلبك بشكل صحيح
شاهد هذا الملف

http://up.top4top.net/downloadf-266v4ci1-rar.html


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

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

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

اتمنا ان اكون فهمت طلبك بشكل صحيح
شاهد هذا الملف

http://up.top4top.net/downloadf-266v4ci1-rar.html


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






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

1- حفظ الفيديو من الليست بوكس اذا كان المحدد = 0 من المفترض ان يعطي رسالة حدد اولا الملف
2-كذلك الكمبوبوكس نفس الملاحظة 1 بالاضافة الى انه يقوم بالنسخ عندج الضغط على زر الغاء المهمة
3- هل ممكن اضافة حوار من مؤقت لزمن الحفظ


اسال الله العلي الكبير ام يجزيك ير الجزاء

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

بالنسبة لليس بوكس

هل ينفع هذا

MediaPlayer.Pause("Plugin1");


FILL = list_data---Input.GetText("Input2");

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

target_folder = Dialog.FolderBrowse("حدد المجلد المراد الحفظ فية", "C:\\");
File.Copy(FILL, target_folder, true, true, false, true, nil);
else
Dialog.Message("تبيه", "حدد الملف اولا", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
MediaPlayer.Play("Plugin1");
end

[ياسرهتهت]

بالنسبة لليس بوكس

هل ينفع هذا

MediaPlayer.Pause("Plugin1");


FILL = list_data---Input.GetText("Input2");

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

target_folder = Dialog.FolderBrowse("حدد المجلد المراد الحفظ فية", "C:\\");
File.Copy(FILL, target_folder, true, true, false, true, nil);
else
Dialog.Message("تبيه", "حدد الملف اولا", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
MediaPlayer.Play("Plugin1");
end
--------------------------------------------
بسم الله الرحمن الرحيم

ما كتبت صح

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

ليكون بهذا الشكل

sel = ListBox.GetSelected("ListBox1");
if sel~=nil then
list_data = ListBox.GetItemData("ListBox1", sel[1]);
if list_data~="" then
target_folder = Dialog.FolderBrowse("ÍÏÏ ÇáãÌáÏ ÇáãÑÇÏ ÇáÍÝÙ ÝíÉ", "C:\\");
File.Copy(list_data, target_folder, true, true, false, true, nil);

end
else
result = Dialog.Message("تبيه", "حدد الملف اولا", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);


end


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

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

بارك الله فيك

[ياسرهتهت]

بارك الله فيك

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

هذا الكود السليم ان شاء الله لزر الحفظ مجلد كامل من ComboBox2

e_Selection = ComboBox.GetSelected("ComboBox1");
e_Selection2 = ComboBox.GetSelected("ComboBox2");

Data = ComboBox.GetItemData("ComboBox1", e_Selection);

if e_Selection~= -1 and e_Selection2~= -1 then
Text = ComboBox.GetItemText("ComboBox1", e_Selection);
Text2 = ComboBox.GetItemText("ComboBox2", e_Selection2);

allfiles = File.Find(_SourceFolder.."\\AutoPlay\\Audio\\".. Text .."\\".. Text2 , "*.*", false, true, nil, nil);
save_folder = Dialog.FolderBrowse("حدد المجلد المراد الحفظ فية", "C:\\");
Folder.Create(save_folder.."\\"..Text2);
path = (save_folder.."\\"..Text2);
for i,x in pairs (allfiles) do
File.Copy(x, path, true, true, false, true, nil);
end

else
result = Dialog.Message("انتبة", "يجب التحديد", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);


end




اخي محمد هل تقصد في الفقرة الثالثة

- حفظ الفيديو من الليست بوكس اذا كان المحدد = 0 من المفترض ان يعطي رسالة حدد اولا الملف
2-كذلك الكمبوبوكس نفس الملاحظة 1 بالاضافة الى انه يقوم بالنسخ عندج الضغط على زر الغاء المهمة
3- هل ممكن اضافة حوار من مؤقت لزمن الحفظ

وضع Progress1 يوضح تقدم عملية النسخ ؟

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





----------

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

بارك الله فيك

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

نعم اقصد
Progress1

[ياسرهتهت]

[quote=محمد بن أحمد أبو حذيفة;306088]بارك الله فيك

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

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

[quote=محمد بن أحمد أبو حذيفة;306088]بارك الله فيك

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

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

[ياسرهتهت]

نعم اقصد
Progress1

----------------------------------------------
بسم الله الرحمن الرحيم
اخي محمد هذة محاولة لوضع Progress
لزر نسخ الملفات

http://b.top4top.net/p_267h3ot1.png

http://up.top4top.net/downloadf-267jqv11-rar.html

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

[عبود عبود]

تعاون بناء

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

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

----------------------------------------------
بسم الله الرحمن الرحيم
اخي محمد هذة محاولة لوضع progress
لزر نسخ الملفات

http://b.top4top.net/p_267h3ot1.png

http://up.top4top.net/downloadf-267jqv11-rar.html

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



بارك الله فيك

فكرة طيبة ورائعة جدا

بقي الزر الثاني

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

تعاون بناء

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


منك نتعلم البرنامج وحسن الرد والمعاملة

[ياسرهتهت]

تعاون بناء

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

--------------------------------
بسم الله الرحمن الرحيم
نحتاج وجودك دائما استاذ عبود
موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152:

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

--------------------------------
بسم الله الرحمن الرحيم
نحتاج وجودك دائما استاذ عبود
موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152:


بارك الله فيك

بقي الزر الاخر

[ياسرهتهت]

بارك الله فيك

بقي الزر الاخر

------------------------------
بسم الله الرحمن الرحيم
اخي محمد كنت اتمنا ان يجيبك على هذه الفقرة احد الاساتذة المحترفين
لانني وكما تعلم خبرتي محدوده و اجد صعوبة في تحريك progress مع نسخ ملف واحد بشكل دقيق
في نقل عدد من المجلدات كنت اعتمد على عدد المجلدات في حركة progress
حولت ان اعتمد على الحجم في حركة progress في نسخ ملف واحد ولم تكن العملية دقيقة

هذا ملف يتحتوي على محاولتين اعتمت فيهما على الخدعة لا الاكواد الاحترافية:abc_102:

http://up.top4top.net/downloadf-269yls41-rar.html


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

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

بارك الله فيك

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

------------------------------
بسم الله الرحمن الرحيم
اخي محمد كنت اتمنا ان يجيبك على هذه الفقرة احد الاساتذة المحترفين
لانني وكما تعلم خبرتي محدوده و اجد صعوبة في تحريك progress مع نسخ ملف واحد بشكل دقيق
في نقل عدد من المجلدات كنت اعتمد على عدد المجلدات في حركة progress
حولت ان اعتمد على الحجم في حركة progress في نسخ ملف واحد ولم تكن العملية دقيقة

هذا ملف يتحتوي على محاولتين اعتمت فيهما على الخدعة لا الاكواد الاحترافية:abc_102:

http://up.top4top.net/downloadf-269yls41-rar.html


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




بارك الله فيك فكرة رائعة جدا


بقي طريقة نسخ مجلد به عدة مجلدات من الكمبوبوكس الى الجهاز


ننتظر احد الاخوى ربما يفيدنا

[ياسرهتهت]

بارك الله فيك فكرة رائعة جدا


بقي طريقة نسخ مجلد به عدة مجلدات من الكمبوبوكس الى الجهاز


ننتظر احد الاخوى ربما يفيدنا
----------------------------------------------------
بسم الله الرحمن الرحيم
اخي محمد تعديل بسيط في الملف يجب ان نضيف هذان السطران

SlideShow.SetVisible("SlideShow1", true);
Progress.SetText("VE", " جـــــاري عملية النسخ");

في الحدث On Show للــــــ DialogEx رقم2 المسمي ( fill)
ليصبح الكود كامل بهذا الشكل

http://b.top4top.net/p_269kor11.png


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

[ياسرهتهت]

بارك الله فيك فكرة رائعة جدا


بقي طريقة نسخ مجلد به عدة مجلدات من الكمبوبوكس الى الجهاز


ننتظر احد الاخوى ربما يفيدنا
-------------------------------------------
بسم الله الرحمن الرحيم

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

http://up.top4top.net/downloadf-269sqwd1-rar.html


http://www.abc4web.net/vb/images/icons/icon_z.gif موفق بإذن الله ... لك مني أجمل تحية . http://www.abc4web.net/vb/images/icons/icon_z.gif

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

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

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

http://up.top4top.net/downloadf-269sqwd1-rar.html


http://www.abc4web.net/vb/images/icons/icon_z.gif موفق بإذن الله ... لك مني أجمل تحية . http://www.abc4web.net/vb/images/icons/icon_z.gif


بارك الله فيك ورحمك وجزاك الجنة

[عبود عبود]

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

هل لا يزال هناك مشكلة أو إستكمال للطلب ؟؟

إن كان هناك أطلعنا على ما تريد مرة أخرى :abc_152:

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

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

هل لا يزال هناك مشكلة أو إستكمال للطلب ؟؟

إن كان هناك أطلعنا على ما تريد مرة أخرى :abc_152:

بارك الله فيكم تمت الافادة

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

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

هل لا يزال هناك مشكلة أو إستكمال للطلب ؟؟

إن كان هناك أطلعنا على ما تريد مرة أخرى :abc_152:


بارك الله فيك

بقي اشكال واحد فقط

المبن في الصورة

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


الكود المستعمل في الزر

MediaPlayer.Pause("Plugin1");
e_Selection = ComboBox.GetSelected("ComboBox1");
if e_Selection~= -1 then

Text = ComboBox.GetItemText("ComboBox1", e_Selection);
select = (_SourceFolder.."\\AutoPlay\\Audio\\".. Text);
destination = Dialog.FolderBrowse("Please select a folder:", _SourceDrive.."\\destfolder");
-----------------------------------------------------------
if destination ~= "CANCEL" then


INIFile.SetValue("AutoPlay\\Docs\\3all.ini", "ALL", "B1", Text);
INIFile.SetValue("AutoPlay\\Docs\\3all.ini", "ALL", "B2", destination);
INIFile.SetValue("AutoPlay\\Docs\\3all.ini", "ALL", "B3", Text );
DialogEx.Show("ALL", true, nil, nil);
else
result = Dialog.Message("ÊÜÜÜæÖíÜÜÍ", "Êã ÇáÛÜÜÜÜÜÜÜÜÜÇÁ ÇáÚãáíÜÜÜÉ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

end


else
Dialog.Message("ÇäÊÈÉ", "íÌÈ ÇáÊÍÏíÏ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);


end

[عبود عبود]

ارفع ملف مفتوح للتعديل

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

ارفع ملف مفتوح للتعديل

بارك الله فيك
تفضل



http://up.top4top.net/downloadf-282yk0e1-rar.html

[عبود عبود]

بارك الله فيك
تفضل



http://up.top4top.net/downloadf-282yk0e1-rar.html

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

إمسح جميع الأكواد الموضوعة فى الزر "حمل مجلد الشيخ كاملا"

ثم ضع الكود التالى :

--
MediaPlayer.Pause("Plugin1");
e_Selection = ComboBox.GetSelected("ComboBox1");
if e_Selection~= -1 then
Text = ComboBox.GetItemText("ComboBox1", e_Selection);
select = (_SourceFolder.."\\AutoPlay\\Audio\\".. Text);
destination = Dialog.FolderBrowse("Please select a folder:", _SourceDrive.."\\destfolder");
if destination ~= "CANCEL" then
DialogEx.Show("ALL", true, nil, nil);
else
Dialog.Message("تـــوضيــح", "تم الغـــــــــاء العمليـــة", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
else
Dialog.Message("انتبة", "يجب التحديد", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

--------------------------------------------------------

إمسح جميع الأكواد الموجودة فى الديالوج المسمى بــــ "ALL" الموجودة فى الحدث "On Show".

ثم ضع الكود التالى :

--
SlideShow.SetVisible("SlideShow1", true);

dxt = Folder.DoesExist(destination.."\\"..Text);
if not dxt then
Folder.Create(destination.."\\"..Text);
end

function _Copy(Source,Destination,Copied,Total,FileCopied,F ileTotal)
Progress.SetText("VE", String.SplitPath(Source).Filename..String.SplitPat h(Source).Extension.." : جارى نسخ الملف");
Progress.SetCurrentPos("VE", (Copied*100/Total));
return true
end

File.Copy(select.."\\*.*", destination.."\\"..Text, true, true, false, true, _Copy);

SlideShow.SetVisible("SlideShow1", false);
Label.SetVisible("Label10", false);
Label.SetVisible("Label1", true);
Dialog.TimedMessage("معلومــــــــة", "تمت عملية النسخ بنجاح", 2000, MB_ICONINFORMATION);
DialogEx.Close(0);

http://www.abc4web.net/vb/images/icons/abc00.gif لم يكن هناك داعى لإستخدم ملف دل خارجى ليقوم بعملية النسخ لمجلد بالكامل " هذة الوظيفة متاحة بالفعل مع الوظيفة File.Copy "


بالتوفيق فى مسعاك النبيل :abc_152:

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

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

إمسح جميع الأكواد الموضوعة فى الزر "حمل مجلد الشيخ كاملا"

ثم ضع الكود التالى :

--
mediaplayer.pause("plugin1");
e_selection = combobox.getselected("combobox1");
if e_selection~= -1 then
text = combobox.getitemtext("combobox1", e_selection);
select = (_sourcefolder.."\\autoplay\\audio\\".. Text);
destination = dialog.folderbrowse("please select a folder:", _sourcedrive.."\\destfolder");
if destination ~= "cancel" then
dialogex.show("all", true, nil, nil);
else
dialog.message("تـــوضيــح", "تم الغـــــــــاء العمليـــة", mb_ok, mb_iconinformation, mb_defbutton1);
end
else
dialog.message("انتبة", "يجب التحديد", mb_ok, mb_iconinformation, mb_defbutton1);
end

--------------------------------------------------------

إمسح جميع الأكواد الموجودة فى الديالوج المسمى بــــ "all" الموجودة فى الحدث "on show".

ثم ضع الكود التالى :

--
slideshow.setvisible("slideshow1", true);

dxt = folder.doesexist(destination.."\\"..text);
if not dxt then
folder.create(destination.."\\"..text);
end

function _copy(source,destination,copied,total,filecopied,f iletotal)
progress.settext("ve", string.splitpath(source).filename..string.splitpat h(source).extension.." : جارى نسخ الملف");
progress.setcurrentpos("ve", (copied*100/total));
return true
end

file.copy(select.."\\*.*", destination.."\\"..text, true, true, false, true, _copy);

slideshow.setvisible("slideshow1", false);
label.setvisible("label10", false);
label.setvisible("label1", true);
dialog.timedmessage("معلومــــــــة", "تمت عملية النسخ بنجاح", 2000, mb_iconinformation);
dialogex.close(0);

http://www.abc4web.net/vb/images/icons/abc00.gif لم يكن هناك داعى لإستخدم ملف دل خارجى ليقوم بعملية النسخ لمجلد بالكامل " هذة الوظيفة متاحة بالفعل مع الوظيفة file.copy "


بالتوفيق فى مسعاك النبيل :abc_152:





بارك الله ورحمك واعزك بطاعته

هل يمكن التعديل على الزرين الاخرين بنفس الطريقة

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


اقصد الازرار الثلاثة

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

[رانيا حسن]

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

[عبود عبود]

الوقت ليس فى صالحى اليوم ....... غدا أو بعد غد إن شاء الله إذا لم يساعدك بعض الأخوة هنا


:abc_145:

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

الوقت ليس فى صالحى اليوم ....... غدا أو بعد غد إن شاء الله إذا لم يساعدك بعض الأخوة هنا


:abc_145:


بارك الله فيك

لا عليك وفقك الله

[عبود عبود]

إن شاء الله أضع لك ما تريد فى حوالى الساعة 10 اليوم بتوقيت القاهرة :abc_114:

[عبود عبود]

آسف للتأخير جارى الرفع

[عبود عبود]

https://dl.dropboxusercontent.com/u/33623281/ComboBox_abood.rar

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

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

أما الزر الثالث فيحتاج لتوضيح وظيفتة ما هى ؟

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

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

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

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

أما الزر الثالث فيحتاج لتوضيح وظيفتة ما هى ؟



بارك الله فيك هذا هو المطلوب رحمك الله اخي عبود

بالنسبة للزر

حمل الشرح مفردا

مثله مثل حمل مجلد الشيخ كاملا الا انه يحمل مجلد واحد من مجلدات الشيخ

اوضح اكثر

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

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

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

الا اذا كان لك راي اخر

ايضا ماهو حل هذا الخطا

http://e.top4top.net/p_28885ue1.png

[عبود عبود]

أتمنى لك التوفيق

ولا تتردد فى طرح أى أسئلة أخرى فى أى وقت

تحياتى

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

أتمنى لك التوفيق

ولا تتردد فى طرح أى أسئلة أخرى فى أى وقت

تحياتى


بارك الله فيك واعزك واسكنك الفردوس الاعلى ورحم الله والديك

انظر هنا

http://www.abc4web.net/vb/showpost.php?p=306612&postcount=80

[عبود عبود]

إكتب بدون مسافة وإستبدلها بــــ _ للفصل بين كلمات إسم الملف المحدد وأخبرنى بالنتيجة

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

إكتب بدون مسافة وإستبدلها بــــ _ للفصل بين كلمات إسم الملف المحدد وأخبرنى بالنتيجة




كتبت اسم المجدل هكذا

الفوائد-المنتقاة-من-شرح-الفتوى-الحموية-الكبرى

واظن انه حلت المشكلة

اسف اخي عبود وقت النوم السلام عليكم

[عبود عبود]

فى رعاية الله وحفظه

:abc_138:

[ياسرهتهت]

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

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

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

أما الزر الثالث فيحتاج لتوضيح وظيفتة ما هى ؟

------------------------------------------------------------------
بسم الله الرحمن الرحيم
شــــــكراً لك استـــــاذ عبود
اكواد في غاية الروعـــــــة والترتيب
دروس مفيدةو قيمـــــــة
موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152::abc_152:

[فرح صالحي]

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

[علي قد حالي]

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

[احمد كبه]

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

[عبد الهادي بهاب]

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

[محمد رمضان أبو يوسف]

شكرا جزيلا

[منار بربرة]

مشكووووور كتير اخى

[امجدمحمد]

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

[ابراهيم ابو الوليد]

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


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


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



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




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