25-09-12, 08:26 PM
السلام عليكم و رحمة الله تعالى و بركاته،،
اليوم أقدم لكم كيفية عمل Short-Cut لأي ملف
في البداية نضيف في المراجع(References) مكتبة IWshRuntimeLibrary من قائمة COM و في أول سطر من الكود نضع هذا السطر:
PHP كود :
Imports Shll = IWshRuntimeLibrary
و الآن مع أبسط كود لإستخدام المكتبة:
PHP كود :
Dim WshShll As New Shll.WshShell
PHP كود :
Dim MyShortcut As Shll.IWshShortcut
PHP كود :
Dim ShortCutPath As String = "MyFile.lnk"
مسار حفظ ملف الـShort-Cut بإمتداد LNK
PHP كود :
MyShortcut = CType(WshShll.CreateShortcut(ShortCutPath), Shll.IWshShortcut)
PHP كود :
MyShortcut.TargetPath = "SourceFilePath"
الملف الأصلي الذي يُشير إليه الـShort-Cut
PHP كود :
MyShortcut.Save()
لحفظ الـShort-Cut
المثال بالمرفقات،،
و السلام عليكم و رحمة الله و بركاته