• Home
 · 
• Files/File Controls/Input/Output
 · 
• Create shortcut

Create shortcut

Create Shortcut

Inputs
Shortcut Name, Target Name, Start In, SIcon...

Returns
Shortcut link to target name

Rate Create shortcut

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Option Explicit
Function TaoShortCut(TenFileShortCut As String, sName As String, _
      Optional sParam As String, Optional sStratIn As String, _
      Optional sIcon As String, Optional sComment As String)
Dim OBJ As Object, oShellLink As Object
Set OBJ = CreateObject("wscript.shell")
Set oShellLink = OBJ.CreateShortcut(TenFileShortCut)
With oShellLink
  .TargetPath = sName
  .Arguments = sParam
  .WorkingDirectory = sStratIn
  If sIcon = "" Then sIcon = sName
  .IconLocation = sIcon
  .Description = sComment
  .Save
End With
End Function
Function TaoShortCutOnDeskTop(TenFileShortCut As String, sName As String, _
      Optional sParam As String, Optional sStratIn As String, _
      Optional sIcon As String, Optional sComment As String)
Dim OBJ As Object, oShellLink As Object
Set OBJ = CreateObject("wscript.shell")
Set oShellLink = OBJ.CreateShortcut(TenFileShortCut)
Set oShellLink = OBJ.CreateShortcut(OBJ.SpecialFolders("Desktop") & "\" & TenFileShortCut)
With oShellLink
  .TargetPath = sName
  .Arguments = sParam
  .WorkingDirectory = sStratIn
  If sIcon = "" Then sIcon = sName
  .IconLocation = sIcon
  .Description = sComment
  .Save
End With
End Function
Private Sub Form_Load()
TaoShortCut "C:\Short1.Lnk", "E:\WINDOWS\system32\notepad.exe", , , , "Create shortcut by phuongthanh37"
TaoShortCutOnDeskTop "Short2.lnk", "%SystemRoot%\explorer.exe", "/e", "%HOMEDRIVE%%HOMEPATH%", "%SystemRoot%\explorer.exe,1", "Create shortcut by phuongthanh37"
End Sub