تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عمل Short-Cut لملف ما (*.lnk)
#1
السلام عليكم و رحمة الله تعالى و بركاته،،

اليوم أقدم لكم كيفية عمل Short-Cut لأي ملف
Smile

في البداية نضيف في المراجع(References) مكتبة IWshRuntimeLibrary من قائمة COM و في أول سطر من الكود نضع هذا السطر:
PHP كود :
Imports Shll IWshRuntimeLibrary 
كي نتمكن من إستخدام المكتبة،،

و الآن مع أبسط كود لإستخدام المكتبة:
PHP كود :
Dim WshShll As New Shll.WshShell 
لإنشاء نسخة من الكائن الذي يُنشئ الـShortCut
PHP كود :
Dim MyShortcut As Shll.IWshShortcut 
لإنشاء الكائن الذي يُمثِّل الـShort-Cut
PHP كود :
Dim ShortCutPath As String "MyFile.lnk" 

مسار حفظ ملف الـShort-Cut بإمتداد LNK
PHP كود :
MyShortcut CType(WshShll.CreateShortcut(ShortCutPath), Shll.IWshShortcut
إعطاء قيمة WshShll لـMyShortcut
PHP كود :
MyShortcut.TargetPath "SourceFilePath" 

الملف الأصلي الذي يُشير إليه الـShort-Cut
PHP كود :
MyShortcut.Save() 

لحفظ الـShort-Cut

المثال بالمرفقات،،
و السلام عليكم و رحمة الله و بركاته
Smile


الملفات المرفقة
.rar   المشروع.rar (الحجم : 79.49 ك ب / التحميلات : 21)
.rar   الملف التنفيذي.rar (الحجم : 19.82 ك ب / التحميلات : 18)
الرد }}}}
تم الشكر بواسطة:


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


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