[转载] 调用VBS创建快捷方式

1. Function CreateShellLink(ByVal LinkFile As String, _
   
2.                          ByVal TargetPath As String, _
   
3.                          Optional ByVal WorkingDirectory As String, _
   
4.                          Optional ByVal Hotkey As String, _
   
5.                          Optional ByVal WindowStyle As Integer = 1, _
   
6.                          Optional ByVal IconLocation As String, _
   
7.                          Optional ByVal Description As String) As Long
   
8.     On Error Resume Next
   
9. Re: With CreateObject("WScript.Shell").CreateShortcut(LinkFile)
   
10.         If Err.Number = -2147352567 Then '后缀名错误
    
11.             LinkFile = LinkFile & ".lnk"
    
12.             Err.Clear
    
13.             GoTo Re:
    
14.         ElseIf Err.Number Then
    
15.             CreateShellLink = Err
    
16.             Exit Function
    
17.         End If
    
18.         .TargetPath = TargetPath
    
19.         If LCase(Right(LinkFile, 3)) = "lnk" Then
    
20.             .WindowStyle = WindowStyle
    
21.             .WorkingDirectory = WorkingDirectory
    
22.             If Len(Hotkey) Then .Hotkey = Hotkey
    
23.             .Description = Description
    
24.             If Len(IconLocation) Then .IconLocation = IconLocation
    
25.         End If
    
26.         .Save
    
27.     End With
    
28.     CreateShellLink = Err
    
29. End Function

复制代码