真的xp和win7都可以
'当前登录用户的桌面路径
Set WshShell = WScript.CreateObject("WScript.Shell")
RelativeFolder = wshShell.CurrentDirectory
mychrome=RelativeFolder & "\files\MyChrome.exe"
mychrome=Replace(mychrome,"\", "\\")
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中