vbs 生成桌面快捷方式

真的xp和win7都可以

'当前登录用户的桌面路径

Set WshShell = WScript.CreateObject("WScript.Shell") 
RelativeFolder = wshShell.CurrentDirectory
mychrome=RelativeFolder & "\files\MyChrome.exe"
mychrome=Replace(mychrome,"\", "\\") 

strDesktop = WshShell.SpecialFolders(4)&"\"
set oShellLink = WshShell.CreateShortcut(strDesktop & "档案管理系统.lnk") 
oShellLink.TargetPath = RelativeFolder&"\files\MyChrome.exe"
'oShellLink.Arguments = "http://192.168.0.46:8088/sa/ --allow-outdated-plugin -start-maximized"
oShellLink.IconLocation = RelativeFolder&"\files\like.ico"
oShellLink.WorkingDirectory = strAppData&"\files\User Data"
oShellLink.Save
msgbox "安装完成！" 
On Error Resume Next '防止出现错误
'WScript.Sleep 1000 '将脚本执行挂起1秒

'fso.DeleteFile(WScript.ScriptName) '删除脚本自身

注意：1.run方法中的路径，如果存在空格，需要在路径前后加空格chr(34)，否则执行不成功

WshShell.run chr(34)&c&chr(34),,true

2.'当前登录用户\Application Data
strAppData = WshShell.SpecialFolders(5)&"\"

xp和win7的路径不一样，xp的路径里面包含空格，需要注意

3.'复制文件到Application Data下
WshShell.run("xcopy files " & chr(34) & strAppData & chr(34) & " /k /y /e"),vbHide

将本目录的files文件夹拷贝到Application Data中