یه تابع براتون میذارم که بوسیله اون می تونید به راحتی بر روی دسکتاپ از هر برنامه ای میانبر بسازید:

Public Sub CreateShortCut_Desktop(Target As String, LinkName As String, Deion As String, Optional Hotkey As String = "", Optional Argument As String = "")
 Dim WshShell, oShellLink
 Set WshShell = Create("W.Shell")
 strDesktop = WshShell.SpecialFolders("Desktop")
  a1 = InStrRev(Target, "\")
  a2 = Mid(Target, 1, Val(a1) - 1)
 Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & LinkName & ".lnk")
 oShellLink.TargetPath = Target
 oShellLink.WindowStyle = 1
 oShellLink.Hotkey = Hotkey
 oShellLink.Deion = Deion
 oShellLink.Arguments = Argument
 oShellLink.WorkingDirectory = a2
 oShellLink.Save
End Sub

نوشته شده توسط مهدی در چهارشنبه 88/8/27 و ساعت 1:46 عصر | نظرات دیگران()