تقييم الموضوع :
  • 1 أصوات - بمعدل 4
  • 1
  • 2
  • 3
  • 4
  • 5
[مقال] التعامل مع اختصارات الملفات Shortcuts
#1
Lightbulb 
السلام عليكم ورحمة الله وبركاتة:

اولا احب ان اهنئكم و اهنئ الامة الاسلامية بعيد الاضحى المبارك اعادة الله علينا بالخير و اليمن البركات.

اليوم, سوف نتعلم سويا كيفية التعامل مع اختصارات الملفات Shortcuts من حيث صنع الاختصارات و معرفة خصائصها.

هناك طرق كثيرة للتعامل مع اختصارات الملفات, اسهل طريقة هي استخدام COM Component وهو Windows Script Host component -وهو جزء من نظام التشغيل- الذي يوفر هذة الوظيفة WshShell.CreateShortcut.

سنبدا باستخدام WshShell , بسم الله:

اولا سنبدا باضافة Reference الى هذا COM Component, من قائمة Project نختار Add Reference ومن COM Tab ثم نختار Windows Script Host Object Model

سنتخدم الكود التالي لعمل اختصار لملف:


1. تحديد الفولدر الذي سوف يتم عمل ال Shortcut بداخلة

PHP كود :
Dim DesktopDir As String Environment.GetFolderPath(Environment.SpecialFolder.Desktop

2. عمل Objects

PHP كود :
       Dim WshShell As New IWshRuntimeLibrary.WshShell()
       Dim Shortcut As IWshRuntimeLibrary.IWshShortcut 

3. تحديد اسم و موقع الShortcut لاحظ ان الاختصار لة امتداد خفي .LNK

PHP كود :
Shortcut CType(WshShell.CreateShortcut(DesktopDir "\Ahmed.lnk"), IWshRuntimeLibrary.IWshShortcut

4. تحديد بعض خصائص الاختصار مثل مسار الملف الاصلي و الوصف Description

PHP كود :
       Shortcut.TargetPath "C:\Windows\notepad.exe"
       Shortcut.WindowStyle 1
       Shortcut
.Hotkey "CTRL+SHIFT+N"
       Shortcut.Description "Run Notepad"
       Shortcut.WorkingDirectory DesktopDir 

5. تحديد ايقونة الاختصار

PHP كود :
Shortcut.IconLocation "C:\Program Files\Smart PC Utilities\Game Fire\GameFire.exe" 

حفظ الاختصار

PHP كود :
Shortcut.Save() 
------------------

والان سوف نتعلم كيفية التعامل مع Shortcuts الموجودة مثل معرفة مسار الملف الاصلي و خصائص هذا Shortcut, باستخدام الدالة التالية يمكننا معرفة مسار الملف الاصلي للاختصار:


PHP كود :
   Private Function Get_ShortcutTarget(ByVal ShortcutPath As String) As String

       Try
           Dim WshShell 
As New IWshRuntimeLibrary.WshShell()
           Dim Shortcut As IWshRuntimeLibrary.IWshShortcut
           Shortcut 
CType(WshShell.CreateShortcut(ShortcutPath), IWshRuntimeLibrary.IWshShortcut)
           Return Shortcut.TargetPath
       Catch ex 
As Exception
           Return ShortcutPath
       End 
Try

   End Function 

يمكن تعديل الدالة السابقة للحصول على معلومات اخرى بتغير الخاصية Property التي تلى Shortcut مثل
Shortcut.Hotkey او Shortcut.Description

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

اخوكم Magic Sword  Cool
الرد }}}
#2
الله يعطيك العافيه أخوي .. بجد طريقة جداً سهله وسرييييعه
الرد }}}
تم الشكر بواسطة: Magic Sword
#3
جزاك الله خير موضوع مفيد وقيم
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  نظرة على DropBox SDK و التعامل معها +برنامج رفع و تحميل ملفات ابو ليلى 4 4,871 08-09-22, 11:54 AM
آخر رد: saif2023
  التعامل مع الصور Images في بيئة الدوت نت باستخدام +GDI - مقدمة RaggiTech 3 5,859 30-07-21, 05:14 PM
آخر رد: kebboud
Lightbulb [مقال] التعامل مع ملفات اوفيس من خلال مكتبة NPOI ابو ليلى 2 4,192 01-07-21, 11:42 AM
آخر رد: kebboud
  ابسط كود لرفع الملفات عن طريق سيرفر FTP Basil Abdallah 2 3,957 20-11-20, 07:21 PM
آخر رد: walihn
  [مقال] دوال التعامل مع النصوص Strings - VB.NET ابو ليلى 10 25,065 15-04-19, 07:09 PM
آخر رد: alsouf
  شرح انشاء برنامج تحويل صيغ الملفات الصوتيه CLARO 10 6,959 16-11-18, 04:41 PM
آخر رد: anassss
  تشفير الملفات التنفيذية silverlight 2 6,339 02-10-18, 08:57 AM
آخر رد: sendbad100
Exclamation [VB.NET] التعامل مع ال CMD عن طريق ال TextBox YousefOkasha 5 5,003 02-06-18, 09:34 PM
آخر رد: YousefOkasha
  التعامل مع الملفات الصوتية ........دردشة برمجية RaggiTech 8 10,374 28-11-17, 11:23 PM
آخر رد: ahmed4240
  الملفات المؤقتة silverlight 1 2,489 05-10-17, 03:54 PM
آخر رد: sendbad100

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم