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

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

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

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

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 

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

تحياتي

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

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

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

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

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

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

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

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

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

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 

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

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

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

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 

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

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

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

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

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

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

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

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

الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
--------------
إلى أن يواصـــل الزمـــلاء في ايجاد حل للبحث الموجه داخل المجلدات أو الأقراص و الفروع
بتنوعها سأفترض أني سأبحث عن كل الملفات الموجودة في مجلد بحيث توجد
فيه ملفات أولا + مجلدات و في المجلدات ملفات و مع الملفات مجلدات و هكذا
هاهي محاولتي ....
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 

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

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

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

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

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

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

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

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

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

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

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

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