[问题求助] [Win8]VBS怎样在startup目录里创建快捷方式？

wgf4242

在startup目录里创建快捷方式不行，不需要提权的目录创建快捷方式没问题。

运行st.vbs后并没有创建出快捷方式。

Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", Chr(34) & "E:\FDownload\wscript_createShortcut.vbs" & Chr(34) & " Run", , "runas", 1
复制代码

下面是创建快捷方式的vbs

name="start.lnk"
src="D:\wgf\My Documents\Dropbox\Archive\.bat\start.bat"

Set WshShell = WScript.CreateObject("WScript.Shell")
strStartup = WshShell.SpecialFolders("Startup") '特殊文件夹startup
Rem 在启动文件夹创建一个start.bat快捷方式
set oShellLink = WshShell.CreateShortcut(strStartup & "\" & name)
oShellLink.TargetPath = src
oShellLink.Save
复制代码