نحوه ساخت shortcut از یک فایل

سلام دوستان
می خوام بدونم چطور میشه از یک فایل شورتکات ساخت لطفا اگه روشی رو بلدین در این باره توضیح بدین
بدون فایل DLL باشه بهتره
با تشکر

سلام.

کد:

---

Private Sub Command1_Click()
    Create_ShortCut "C:\WINDOWS\NOTEPAD.EXE", "Desktop", "Notepad", , 7, 1
End Sub

Sub Create_ShortCut(ByVal TargetPath As String, ByVal ShortCutPath As String, ByVal ShortCutname As String, Optional ByVal WorkPath As String, Optional ByVal Window_Style As Integer, Optional ByVal IconNum As Integer)
    Dim VbsObj As Object
    Set VbsObj = CreateObject("WScript.Shell")
   
    Dim MyShortcut As Object
    ShortCutPath = VbsObj.SpecialFolders(ShortCutPath)
    Set MyShortcut = VbsObj.CreateShortcut(ShortCutPath & "\" & ShortCutname & ".lnk")
    MyShortcut.TargetPath = TargetPath
    MyShortcut.WorkingDirectory = WorkPath
    MyShortcut.WindowStyle = Window_Style
    MyShortcut.IconLocation = TargetPath & "," & IconNum
    MyShortcut.Save
End Sub

---

نقل قول:

---

نوشته شده توسط Payman_62 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام.

کد:

---

Private Sub Command1_Click()
    Create_ShortCut "C:\WINDOWS\NOTEPAD.EXE", "Desktop", "Notepad", , 7, 1
End Sub

Sub Create_ShortCut(ByVal TargetPath As String, ByVal ShortCutPath As String, ByVal ShortCutname As String, Optional ByVal WorkPath As String, Optional ByVal Window_Style As Integer, Optional ByVal IconNum As Integer)
    Dim VbsObj As Object
    Set VbsObj = CreateObject("WScript.Shell")
   
    Dim MyShortcut As Object
    ShortCutPath = VbsObj.SpecialFolders(ShortCutPath)
    Set MyShortcut = VbsObj.CreateShortcut(ShortCutPath & "\" & ShortCutname & ".lnk")
    MyShortcut.TargetPath = TargetPath
    MyShortcut.WorkingDirectory = WorkPath
    MyShortcut.WindowStyle = Window_Style
    MyShortcut.IconLocation = TargetPath & "," & IconNum
    MyShortcut.Save
End Sub

---

---

اگر بخوایمshortcut در جای دیگه ذخیره بشه باید از چه راهی باید استفاده کنیم

نقل قول:

---

نوشته شده توسط hamedre81 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اگر بخوایمshortcut در جای دیگه ذخیره بشه باید از چه راهی باید استفاده کنیم

---

*********************
کافیه متغییر ShortCutPath رو با آدرس مورد نظرتون مقدار دهی کنید.../////// مثلاً...// "\:C" یا "C:\WINDOWS\SYSTEM32" و......////// :13:
**************
یا اصلاً می تونید برنامه بالا رو به این صورت باز نویسی کنید...///// :12:
******************
[PHP]
Private Sub Command1_Click()
Create_ShortCut "C:\WINDOWS\SYSTEM32\NOTEPAD.EXE", "C:\", "Notepad", , 7, 1
//به جای "\:C" می تونید آدرس مورد نظرتون رو قرار بدید..."
End Sub
Sub Create_ShortCut(ByVal TargetPath As String, ByVal ShortCutPath As String, ByVal ShortCutname As String, Optional ByVal WorkPath As String, Optional ByVal Window_Style As Integer, Optional ByVal IconNum As Integer)
Dim VbsObj As Object
Set VbsObj = CreateObject("WScript.Shell")
Dim MyShortcut As Object
Set MyShortcut = VbsObj.CreateShortcut(ShortCutPath & "\" & ShortCutname & ".lnk") '"
MyShortcut.TargetPath = TargetPath
MyShortcut.WorkingDirectory = WorkPath
MyShortcut.WindowStyle = Window_Style
MyShortcut.IconLocation = TargetPath & "," & IconNum
MyShortcut.Save
End Sub
[/PHP]
*********
موفق باشید! :46:

ممنون از پاسختون مشکلم حل شد.