[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
一步莲华

Rank: 1

帖子
2 
积分
14 
技术
0  
捐助
0  
注册时间
2017-12-29 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2017-12-29 12:42 | 只看该作者

[文本处理] bat创建快捷方式的的问题

set a=%~dp0vmware.exe -x
set b= %~dp0vmwarexuniji\centos.vmx
set c="%a%%b%"
echo 创建快捷方式
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""AllUsersDesktop"")

& ""\VMware.lnk""):b.TargetPath="%c%":b.WorkingDirectory=""%~dp0\"":b.Save:close") >nul
echo.
pause


想给目标加一个参数  但是怎么改都会报错,求大神支招...感激不尽
收藏 分享

search_Sudoku

Rank: 2

帖子
21 
积分
101 
技术
10  
捐助
0  
注册时间
2017-10-2 
2楼
发表于 2017-12-29 14:54 | 只看该作者
回复 1# 一步莲华

保存为 VBS 文件
  1. Set fso = CreateObject("Scripting.FileSystemObject")

  2. GetTheParent = fso.GetParentFolderName(WScript.ScriptFullName)

  3. Set WshShell = WScript.CreateObject("WScript.Shell")

  4. AllUsersDesktop = WshShell.SpecialFolders("AllUsersDesktop")

  5. Set b = WshShell.CreateShortcut(AllUsersDesktop & "\VMware.lnk")

  6. b.TargetPath = "" & GetTheParent & "\vmware.exe"

  7. b.Arguments = "-x """ & GetTheParent & "\vmwarexuniji\centos.vmx"""

  8. b.WorkingDirectory = GetTheParent

  9. b.Save

  10. WScript.Quit
复制代码

TOP

返回列表