صانع قوائم تشغيل الوسائط playlist generator

[أ / محمد صالح]

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

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

حياكم الله جميعاً إخوتي وأحبابي في الله أعضاء بيتنا الثاني أوفيسنا

هل أردت الاستمتاع بمجموعة من الوسائط (ملفات صوتية أو فيديوهات) من مجموعة من المجلدات؟؟

وتعذبت في فتح ملف ثم غلق مشغل الوسائط ( الميديا بلاير ) والتوجه لفتح الآخر وهكذا إلى آخر المجموعة؟؟

هل تعبت من البحث عن الملفات ذات امتداد معين من بين ملفات مجموعة من المجلدات ووضعها في مجلد مستقل كي تسمعها أو تشاهدها منظمة؟؟

هل .....؟

هل ......؟

اليوم أقدم لكم هدية بسيطة جداً لعمل كل ما سبق

فكرة الهدية:

عمل ملف فيجوال بيسك سكريبت 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

[أبو العقاب]

ما شاء الله

عمل رائع

[أ / محمد صالح]

في 5/20/2012 at 11:26, أبو العقاب said:

ما شاء الله

عمل رائع

والأروع منه كلماتك الرقيقة

كل عام وانتم بخير وسعادة ورضا

[mennad sofiane]

في ١٨‏/٥‏/٢٠١٢ at 11:34, أ / محمد صالح said:

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

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

 

حياكم الله جميعاً إخوتي وأحبابي في الله أعضاء بيتنا الثاني أوفيسنا

 

هل أردت الاستمتاع بمجموعة من الوسائط (ملفات صوتية أو فيديوهات) من مجموعة من المجلدات؟؟

وتعذبت في فتح ملف ثم غلق مشغل الوسائط ( الميديا بلاير ) والتوجه لفتح الآخر وهكذا إلى آخر المجموعة؟؟

 

هل تعبت من البحث عن الملفات ذات امتداد معين من بين ملفات مجموعة من المجلدات ووضعها في مجلد مستقل كي تسمعها أو تشاهدها منظمة؟؟

 

هل .....؟

هل ......؟

 

اليوم أقدم لكم هدية بسيطة جداً لعمل كل ما سبق

 

فكرة الهدية:

عمل ملف فيجوال بيسك سكريبت 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" , ",")

 

 

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

 

وفي الأخير

أتمنى أن أكون وفقت في إيصال المعلومة المفيدة للكثير منا

وأتمنى أن تكون الهدية البسيطة نالت إعجابكم

ولا تنسوني من صالح دعائكم

حتى يقول لك الملك آمين ولك مثلها

MakePlayList.rar

شكرا اخي الكريم

[أ / محمد صالح]

الشكر لله

[ابو الآء]

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

 

[أ / محمد صالح]

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

[أ / محمد صالح]

تم تحديث الموضوع وإضافة طريقة أخرى وشرحها بالفيديو

نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا