البحث في الموقع

بسم الله الرحمن الرحيـــــم السلام عليكم ورحمة الله وبركاته حياكم الله جميعاً إخوتي وأحبابي في الله أعضاء بيتنا الثاني أوفيسنا هل أردت الاستمتاع بمجموعة من الوسائط (ملفات صوتية أو فيديوهات) من مجموعة من المجلدات؟؟ وتعذبت في فتح ملف ثم غلق مشغل الوسائط ( الميديا بلاير ) والتوجه لفتح الآخر وهكذا إلى آخر المجموعة؟؟ هل تعبت من البحث عن الملفات ذات امتداد معين من بين ملفات مجموعة من المجلدات ووضعها في مجلد مستقل كي تسمعها أو تشاهدها منظمة؟؟ هل .....؟ هل ......؟ اليوم أقدم لكم هدية بسيطة جداً لعمل كل ما سبق فكرة الهدية: عمل ملف فيجوال بيسك سكريبت vbs يقوم بقراءة الملفات الموجودة في المجلد الذي يتم تمريره للكود وكذلك الملفات الموجودة في المجلدات الفرعية ضمن المجلد الأصلي ووضع ما يتفق مع مجموعة الامتدادات المسموحة منك جميعاً في قائمة تشغيل بامتداد m3u والتي تعمل على كل مشغلات الميديا. نأتي الآن للطريقة: افتح أي محرر نصوص مثل نوت باد وانسخ هذا الكود والصقه فيه On Error Resume Next Dim Exts, LstPath, Folder, NewFile, ObjFile, Ext Exts = split("mov,mp3,flv" , ",") Set Folder = CreateObject("Scripting.FileSystemObject").GetFolder(Wscript.Arguments.Item(0)) LstPath = Folder.ParentFolder.path & "\" & Folder.name & ".m3u" Set NewFile = CreateObject("Scripting.FileSystemObject").CreateTExtFile(LstPath, 1) add2lst(Folder.Files) For Each SubFolder in Folder.SubFolders add2lst(SubFolder.Files) Next NewFile.Close CreateObject("WScript.Shell").Run """" & LstPath & """" Function add2lst(files) For each ObjFile In files For each Ext In Exts if right(ObjFile.Name, 3) = Ext then NewFile.WriteLine(ObjFile.path) Next Next End Function ثم احفظ هذا الملف باسم MakePlayList.vbs أو أي اسم آخر ولكن لاحظ الامتداد ليس txt وإنما vbs وحاول أن تضع الملف أثناء عملية الحفظ في أحد محركات القرص الصلب مباشرة يعني مثلا D:\MakePlayList.vbs لا تجرب الملف الآن فلن يعمل يلزمنا الآن أن نضيف في القائمة المختصرة للمجلدات الأمر الخاص باستدعاء تنفيذ الكود الموجود في ملف vbs مع إعطائه مسار المجلد الذي تم ضغط زر الفارة الأيمن عليه وذلك عن طريق ما يلي: افتح برنامج النوت باد أو اي محرر نصوص تريده انسخ الكود التالي والصقه فيه Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\Folder\shell\Make Playlist\command] @="wscript G:\\MakePlayList.vbs \"%1\"" قم بحفظ الملف بأي اسم تريده مع التأكيد على أن الامتدادا reg وليكن مثلا MakePlayList.reg لاحظ في السطر الثالث من كود ملف الريجيستري هو مسار الملف vbs الذي أنشأناه سابقا ووضعناه في القرص الصلب D ولكن في الكود استعملت القرص الصلب G للتأكيد على إمكانية تغيير مسار الملف ولكن مع ضرورة كتابة مساره في ملف الريجيستري بصورة دقيقة. طب هنا هيسأل واحد ليه نحط ملف vbs في القرص الصلب مباشرة؟؟!! يعني ليه منحطوش في أي مكان تاني؟؟ الإجابة: لو تعرف تكتب المسار بتاع ملف vbs كامل ومظبوط مع مراعاة أن الشرطة الخلفية \ تكتب شرطتين \\ مفيش مشكلة (حطه في أي مكان يعجبك) مع مراعاة كتابة مساره بصورة صحيحة تبقى لنا أن نضغط على ملف الريجيستري مرتين لتشغيله ثم نعم ثم موافق كده كل حاجة جاهزة جرب كده بقة يا عم الحاج تروح لمجلد فيه فيديوهات أو ملفات صوت وتعمل عليه كلك يمين وتختار Make Playlist هتلاقي إنه تم إنشاء ملف بجوار المجلد يمكنك تشغيل كل الملفات التي بداخل المجلد من خلاله في صورة قائمة تشغيل نأتي الآن لجزئية مهمة جداً وهي التعديل على ملف vbs ليتناسب مع احتياجاتك إذا أردت مثلا وضع ملفات mp3 فقط من ضمن المجلد يمكنك تعديل السطر الثالث الخاص بالامتدادات Exts = split("mov,flv,mp3,wav" , ",") هنا في الكود أنا وضعت أكثر من امتداد لكي أوضح طريقة كتابة أكثر من امتداد على شكل المصفوفة وذلك بكتابة الامتداد ثم فاصلة ثم الذي يليه وهكذا وإذا كان الامتداد واحد فقط يجب أن يكون بنفس الصورة مع حذف الفواصل Exts = split("mov" , ",") ومرفق الملفين ولكن يفضل أن تجرب أن تقوم بها وحدك وهذه طريقة أخرى لعمل نفس المطلوب ولكن من خلال الدوس DOS باستعمال ملف batch بالفيديو وفي الأخير أتمنى أن أكون وفقت في إيصال المعلومة المفيدة للكثير منا وأتمنى أن تكون الهدية البسيطة نالت إعجابكم ولا تنسوني من صالح دعائكم حتى يقول لك الملك آمين ولك مثلها ويرجى مشاركة الموضوع حتى تعم الفائدة MakePlayList.rar