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

[ياسرهتهت ياسرهتهت]

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


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

[عبود عبود عبود عبود]

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

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

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

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



حيث أن 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 ؟

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

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

[ياسرهتهت ياسرهتهت]

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

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

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 

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


.

[فرح صالحي فرح صالحي]

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

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

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 

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


.

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

[ياسرهتهت ياسرهتهت]

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

-------------
تقصد في حالة استدعائها للــــ ListBox اوComboBox
تتكرر في كل ضغط ؟؟

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

ListBox.DeleteItem("ListBox1", LB_ALLITEMS); 

ComboBox

ComboBox.ResetContent("ComboBox1"); 

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

[فرح صالحي فرح صالحي]

-------------
تقصد في حالة استدعائها للــــ ListBox اوComboBox
تتكرر في كل ضغط ؟؟

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

ListBox.DeleteItem("ListBox1", LB_ALLITEMS); 

ComboBox

ComboBox.ResetContent("ComboBox1"); 

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

شكرا جزيلا

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

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


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

بارك الله فيك

هل ممكن

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

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

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

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

الملف مرفق

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

[عبود عبود عبود عبود]

بارك الله فيك

هل ممكن

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

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

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

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

الملف مرفق

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

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


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

[محمد سامر محمد سامر]

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

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

تفضل أخى وتذكر أنه لا يشترط أى تسمية للمجلدات أو الملفات فكما تريد ضع ما تريد والصيغة للملفات هى صيغة الفيديو 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)
موفق بإذن الله ... لك مني أجمل تحية .

[عبود عبود عبود عبود]

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

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

[ياسرهتهت ياسرهتهت]

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

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

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

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

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 )





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