التعامل مع ال Shortcut

 

'Add References --> Windows Script Host Object Model

'Write Code :

Dim objWShell As New WshShell ''كائن التعامل مع الملفات''

Dim objWShortcut As New WshShortcut

Private Sub Command1_Click()

Set objWShortcut = objWShell.CreateShortcut(App.Path & "\XX.lnk")

With objWShortcut

.TargetPath = App.Path & "\Read Me.txt"

.RelativePath = App.Path

.Hotkey = 1

.WorkingDirectory = App.Path

.WindowStyle = 2

.Description = "SSS"

.Save

End With

End Sub

1- قم بإضافة المرجع ( Windows Script Host Object Model ) من نافذة Refrances .

2- قم بتعريف المعرفات التالي :

Dim objWShell As New WshShell

Dim objWShortcut As New WshShortcut

3- قم بتحديد مسار ملف الشورت كات كما يلي :

Set objWShortcut = objWShell.CreateShortcut(App.Path & "\XX.lnk")

4- قم بضبط خصائص الكائن ( المعرف ) objWShortcut :

حيث أن TargetPath هو الملف الفعلي الذي ترغب في إنشاء ShortCut له ، وعلي سبيل المثال أخذت ملف Read Me.txt .

و أن RelativePath لتحديد مسار الغلاف الموجود به الملف الفعلي

وأن WindowStyle هو وضع نافذة البرنامج .

أما الأمر Save هو التنفيذ النهائي للتعدادات