通过VBA创建快捷方式

时间:2019-06-11 12:42:53

标签: excel vba

我想知道是否可以通过多个目标创建快捷方式,因为我的代码不适用于3条路径。下面的代码和屏幕截图。

可以帮忙吗?谢谢大家

https://ibb.co/pWs87P9

我想要一些东西,例如下面的屏幕截图(我已经手动完成)

https://ibb.co/9tH4Rx5

C:\ Windows \ System32 \ notepad.exe“ C:\ Temp Logs \ app.vbs”“ C:\ Temp Logs \ try.bat”

Sub aa()


Dim sShortcutLocation As String


sShortcutLocation = "C:\Temp Logs\AA.lnk"


With CreateObject("WScript.Shell").CreateShortcut(sShortcutLocation)
    .TargetPath = "C:\Windows\System32\notepad.exe ""C:\Temp Logs\app.vbs"""
    .Arguments = "C:\Temp Logs\try.bat"
    .Description = "Shortcut to the file"
     .Save
End With


End Sub

0 个答案:

没有答案