Board logo

标题: [转载] 调用VBS创建快捷方式 [打印本页]
作者: chinanic    时间: 2007-4-14 20:41     标题: 调用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
复制代码




欢迎光临 黑色海岸线论坛 (http://bbs.thysea.com/) Powered by Discuz! 7.2