Question

怎样把这段vbs代码写入批处理命令，让它通过批处理命令直接运行不出错

别人给了这段我需要的代码，我要直接使用时，必须要用另个批处理命令调用它，就是分成一个bat和一个vbs，但是我看到有人在批处理文件中直接写入vbs代码，不知道要怎么实现
求高人把下面这段vbs代码改写成批处理命令

谢谢

---------------vbs代码如下----------------
Set fso = wscript.CreateObject("Scripting.FileSystemObject")
path=Left(Wscript.ScriptFullName,len(Wscript.ScriptFullName))
for each fname in wscript.arguments

for i=0 to wscript.arguments.count-1
mingzi = fso.GetFile(wscript.arguments(i)).Name

Set WshShell = WScript.CreateObject("WScript.Shell")
set oShellLink = WshShell.CreateShortcut("C:\Users\leo\Desktop\" & mingzi & ".lnk") '快捷方式的保存路径和文件名
oShellLink.TargetPath = fname : '指向的文件
oShellLink.Save : '保存

Wscript.Quit

next
next
------------------------------------------------------------

Answer 1

用批处理写以上代码到一个新的VBS文件，然后在批处理中调用该VBS即可

echo Set fso = wscript.CreateObject("Scripting.FileSystemObject") >test.vbs
echo path=Left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)) >>test.vbs
echo for each fname in wscript.arguments >>test.vbs
echo for i=0 to wscript.arguments.count-1 >>test.vbs
echo mingzi = fso.GetFile(wscript.arguments(i)).Name >>test.vbs
echo Set WshShell = WScript.CreateObject("WScript.Shell") >>test.vbs
echo set oShellLink = WshShell.CreateShortcut(^"C:^\Users^\leo^\Desktop^\^" ^& mingzi ^& ".lnk") '快捷方式的保存路径和文件名 >>test.vbs
echo oShellLink.TargetPath = fname : '指向的文件 >>test.vbs
echo oShellLink.Save : '保存 >>test.vbs
echo Wscript.Quit >>test.vbs
echo next >>test.vbs
echo next >>test.vbs
start test.vbs

追问

貌似是我没表达清楚

我现在本就有两个文件，一个bat和一个vbs，bat调用的vbs来实现功能

而我想问的是，能不能把这个vbs代码直接彼编写进bat合并成一个单独的bat文件，不用在外部调用vbs了，直接就是用这个单独的bat来实现功能
不知道可以吗

追答

这难道不是一个意思吗，你把上面的代码加入到你现有的BAT文件中，如果你不想在bat当前目录出现test.vbs，你完全可以把vbs写到%tmp%目录下
即 >test.vbs 改成 >%tmp%\test.vbs >>test.vbs 改成 >>%tmp%\test.vbs
调用vbs时，start %tmp%\test.vbs
调用了删除vbs, del /s %tmp%\test.vbs
你难道是想把vbs的代码转换成bat代码，让bat代码实现该VBS脚本的功能？

追问

其实就是你最后一句话说的，我就是想问能不能把这段vbs脚本转换成bat代码？
因为我后来又得到了另一段bat代码能实现相同的功能而不需要额外运行vbs，所以想问问前面那段代码是否能改成像这段代码一样，不用在外部调用vbs，直接在bat里实现全部功能。
后来那段代码如下：

百度一直提示我字数超出限制，怎么也发不上来，只好截图了。

追答

你把你的需求直接详细贴出来更容易解决问题，你都不知道怎么去改，你的意思就是要把某个文件的快捷方式发送到桌面，是吗？