عمل Short-Cut لملف ما (*.lnk) - نسخة قابلة للطباعة

اليوم أقدم لكم كيفية عمل 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