Create shortcut

---

Create Shortcut

Original Author: phuongthanh37

Inputs

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

Returns

Shortcut link to target name

Code

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:WINDOWSsystem32 otepad.exe", , , , "Create shortcut by phuongthanh37"
TaoShortCutOnDeskTop "Short2.lnk", "%SystemRoot%explorer.exe", "/e", "%HOMEDRIVE%%HOMEPATH%", "%SystemRoot%explorer.exe,1", "Create shortcut by phuongthanh37"
End Sub

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 126 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.