استدعاء كافة الملفات في المجلد و في المجلدات التي تقع تحته

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

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

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


liste = Dialog.FolderBrowse("Please select a folder:", _DesktopFolder);
if (liste ~= "CANCEL") and (liste ~= "") then
Extension = {"*.dat","*.avi","*.mpg","*.wmv","*.asf","*.mpeg","*.mp4","*.mpe","*.3gp","*.divx","*.mov","*.ts"};
for index,type in pairs(Extension) do
file = File.Find(liste, type, false, false, nil);
if file ~= nil and file ~="CANCEL" then
for i , n in pairs(file) do
ListBox.AddItem("ListBox1", String.SplitPath(n).Filename, n)
end
end
end
end


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

تحياتي

[عبود عبود]

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

قم بالتغيير هناك " معناها هل تريد تضمين البحث داخل جميع المجلدات التى تقع فى المجلد المحدد ؟ "

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

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

قم بالتغيير هناك " معناها هل تريد تضمين البحث داخل جميع المجلدات التى تقع فى المجلد المحدد ؟ "

:abc_152::abc_152::abc_152::abc_152:

روعة ....و دائما استخدم هذه الدالة و لكنني لم اتامل جوانبها و لا اجزائها
بارك الله فيكم

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

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

قم بالتغيير هناك " معناها هل تريد تضمين البحث داخل جميع المجلدات التى تقع فى المجلد المحدد ؟ "

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

هل فيه خطا في الترتيب

ListBox.DeleteItem("ListBox1",LB_ALLITEMS);
liste = Dialog.FolderBrowse("Please select a folder:", _DesktopFolder);
if (liste ~= "CANCEL") and (liste ~= "") then
Extension = {"*.dat","*.avi","*.mpg","*.wmv","*.asf","*.mpeg","*.mp4","*.mpe","*.3gp","*.divx","*.mov","*.ts"};
for index,type in pairs(Extension) do
file = File.Find(liste, type, true, true, nil);
if file ~= nil and file ~="CANCEL" then
for i , n in pairs(file) do
ListBox.AddItem("ListBox1", String.SplitPath(n).Filename, n)
end
end
end
end

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

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


Extension = {".dat",".avi",".mpg",".wmv",".asf",".mpeg",".mp4",".mpe",".3gp",".divx",".mov",".ts"};

ListBox.DeleteItem("ListBox1",LB_ALLITEMS);

liste = Dialog.FolderBrowse("Please select a folder:", _DesktopFolder);

if (liste ~= "CANCEL") and (liste ~= "") then
folder = Folder.Find(liste, "*", false, nil);
if folder then
for i,nF in pairs(folder) do
file = File.Find(nF, "*", false, true, nil);
if file ~= nil and file ~="CANCEL" then
for i , n in pairs(file) do
for index,type in pairs(Extension) do
if String.SplitPath(n).Extension == type then
ListBox.AddItem("ListBox1", String.SplitPath(n).Filename, n)
end
end
end
end
end
end
end

[عبود عبود]

file = File.Find(liste, type, true, false, nil);


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

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

file = file.find(liste, type, true, false, nil);


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

هذا ظاهر جدا استاذ فهذا لا يشمل المجلدات الفرعية

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

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

متابع

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

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

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

الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
--------------
إلى أن يواصـــل الزمـــلاء في ايجاد حل للبحث الموجه داخل المجلدات أو الأقراص و الفروع
بتنوعها سأفترض أني سأبحث عن كل الملفات الموجودة في مجلد بحيث توجد
فيه ملفات أولا + مجلدات و في المجلدات ملفات و مع الملفات مجلدات و هكذا
هاهي محاولتي ....
01 - حمل هذا ملف "dll " وهو محاولة قابلة للتعديل كأن نجعل معايير لللاحقة اختياريا
http://up.top4top.net/downloadf-2415ady1-rar.html
02 - بعد فكه ضعه في مجلد Docs
03 - ضمن التجميعية عنصر ListBox1 وزر ازرع فيه الكود التالي على
أساس أننا نبحث عن كل الملفات
liste = Dialog.FolderBrowse("Please select a folder:", _DesktopFolder);
DLL.CallFunction("AutoPlay\\Docs\\THAMEUR_find.dll", "THAMEUR_find", "\""..liste.."\"", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
sour =TextFile.ReadToTable("C:\\belkiss.txt");
--------
for i,n in pairs(sour) do
ListBox.AddItem("ListBox1", String.SplitPath(n).Filename, n );
end

04 - اجعل من برنامجك مسؤول وجرب

-------------
الان أحببت أن أبحث فقط على ملفات الووورد مثلا
هاهو الشرط :
liste = Dialog.FolderBrowse("Please select a folder:", _DesktopFolder);
DLL.CallFunction("AutoPlay\\Docs\\THAMEUR_find.dll", "THAMEUR_find", "\""..liste.."\"", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
sour =TextFile.ReadToTable("C:\\belkiss.txt");
--------
for i,n in pairs(sour) do
if String.SplitPath(n).Extension == ".doc" then
result = ListBox.AddItem("ListBox1", String.SplitPath(n).Filename, n );
end
end

بالتوفيق نقرأ محاولاتكم لنستفيد :abc_139:

[ياسرهتهت]

الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
--------------
إ
liste = Dialog.FolderBrowse("Please select a folder:", _DesktopFolder);
DLL.CallFunction("AutoPlay\\Docs\\THAMEUR_find.dll", "THAMEUR_find", "\""..liste.."\"", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
sour =TextFile.ReadToTable("C:\\belkiss.txt");
--------
for i,n in pairs(sour) do
if String.SplitPath(n).Extension == ".doc" then
result = ListBox.AddItem("ListBox1", String.SplitPath(n).Filename, n );
end
end

بالتوفيق نقرأ محاولاتكم لنستفيد :abc_139:
------------------------------------------------------------
بسم الله الرحمن الرحيم
ابداع وتميز استاذنا الكريم
بارك الله فيك وجازك كل الخير

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

وبعد ساعات من المشاهدة --- اكتشفت التالي
البرنامج يحدد مكان المجلد liste فقط
ملف dll يقوم بالتعامل مع المجلد وعمل قائمة بالملفات الموجود به belkiss.txt
يعود البرنامج ليتعامل مع القائمة باستدعاء الاسامي والمسارات من القائمة
لهذا هي اسرع بكثير من الوضع العادي في البرنامج

كل التحية للاستاذ ثامر على اكواده الاحترافية + ملفات dll الثامرية ايضا

:abc_138::abc_138::abc_138:

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

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

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

الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
--------------
إلى أن يواصـــل الزمـــلاء في ايجاد حل للبحث الموجه داخل المجلدات أو الأقراص و الفروع
بتنوعها سأفترض أني سأبحث عن كل الملفات الموجودة في مجلد بحيث توجد
فيه ملفات أولا + مجلدات و في المجلدات ملفات و مع الملفات مجلدات و هكذا
هاهي محاولتي ....
01 - حمل هذا ملف "dll " وهو محاولة قابلة للتعديل كأن نجعل معايير لللاحقة اختياريا
http://up.top4top.net/downloadf-2415ady1-rar.html
02 - بعد فكه ضعه في مجلد Docs
03 - ضمن التجميعية عنصر ListBox1 وزر ازرع فيه الكود التالي على
أساس أننا نبحث عن كل الملفات
liste = Dialog.FolderBrowse("Please select a folder:", _DesktopFolder);
DLL.CallFunction("AutoPlay\\Docs\\THAMEUR_find.dll", "THAMEUR_find", "\""..liste.."\"", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
sour =TextFile.ReadToTable("C:\\belkiss.txt");
--------
for i,n in pairs(sour) do
ListBox.AddItem("ListBox1", String.SplitPath(n).Filename, n );
end

04 - اجعل من برنامجك مسؤول وجرب

-------------
الان أحببت أن أبحث فقط على ملفات الووورد مثلا
هاهو الشرط :
liste = Dialog.FolderBrowse("Please select a folder:", _DesktopFolder);
DLL.CallFunction("AutoPlay\\Docs\\THAMEUR_find.dll", "THAMEUR_find", "\""..liste.."\"", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
sour =TextFile.ReadToTable("C:\\belkiss.txt");
--------
for i,n in pairs(sour) do
if String.SplitPath(n).Extension == ".doc" then
result = ListBox.AddItem("ListBox1", String.SplitPath(n).Filename, n );
end
end

بالتوفيق نقرأ محاولاتكم لنستفيد :abc_139:

Magnifique vraiment extraordinaire
ما شاء الله و لا قوة الا بالله
دائما تاتينا بطرق لا نتوقعها
بارك الله فيكم و جزاكم الله خيرا

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

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

و الشكر موصول للاستاذ ثامر لانجاز و الخدمة المتميزة كعادته دائما

http://up.harajgulf.com/do.php?id=1052106

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

------------------------------------------------------------
بسم الله الرحمن الرحيم
ابداع وتميز استاذنا الكريم
بارك الله فيك وجازك كل الخير

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

وبعد ساعات من المشاهدة --- اكتشفت التالي
البرنامج يحدد مكان المجلد liste فقط
ملف dll يقوم بالتعامل مع المجلد وعمل قائمة بالملفات الموجود به belkiss.txt
يعود البرنامج ليتعامل مع القائمة باستدعاء الاسامي والمسارات من القائمة
لهذا هي اسرع بكثير من الوضع العادي في البرنامج

كل التحية للاستاذ ثامر على اكواده الاحترافية + ملفات dll الثامرية ايضا

:abc_138::abc_138::abc_138:


سعدت كثيرا بوصول المعلومة لك ... عساني أرجع بها القليل من الكثير
موفق :abc_139:

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

تجسيد الكود في البحث عن الفيديوهات في المجلدات او حتى قرص بكامله
و الشكر موصول لثامر للخدمة.
http://up.harajgulf.com/do.php?id=1052106
-------------------------------------- ------------------------------
أجدت بارك الله فيك :abc_080: ... حاول ترك إنشغالك مفتوحــــا قد يكون هنااك حل
بأكواد البرنـــــامج فما كتب ماهو الا تضامنا :abc_029:
بمعنى حل على السريع :abc_139:..... مع ترك مجال الاجابة بالأكواد يوما إن أمكن ذلك
بالتوفيق :abc_139:
------------------------------------------------------------------------------------------------

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

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

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

[عبود عبود]

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

فى هذا الموضوع كنت منشغل أو متعب فيمكنك أيضا مراجعة ردى فى الموضوع التالى أيضا :

http://www.abc4web.net/vb/showthread.php?p=305646#post305646


:abc_152: