سلام دوست عزیز
با توابع API خیلی راحت میتونی این کارو انجام بدی.
میتونی از تابع زیر استفاده کنی:
Declare Function fCreateShellLink Lib "VB6STKIT.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
پارامترها:
LpStrFolderName: مسیری است که Shortcut در آن ذخیره میشود.
LpStrLinkName: نام Shortcut است.
LpStrLinkPath: مسیر فایلی است که Shortcut آن ساخته میشود.
LpStrLinkArguments: مقدار این متغیر را برای سهولت در کار خالی قرار میدهیم.
fPrivate: اگر مقدار این متغیر True باشد ساخته میشود و اگر False باشد Shortcut ساخته نخواهد شد.
در پناه حق موفق باشید و پرتوان