CommandBatCmd

回复 1# adan1

你的代码看上去没有问题，
只是双击运行会出错，启用变量延迟扩展即可，
拖放文件去执行，可以正常运行。

要是放到P文件中运行，搞成多行修改起来方便：

@echo off&setlocal EnableDelayedExpansion
set "p=%~1"
if /i not "!p:~-4!"==".LNK" (
    start /i "" C:\a.exe "%~1" /L
    exit
) else (
    mshta VBScript:Execute("set wsh=CreateObject(""WScript.Shell""): set lnk=wsh.CreateShortcut(""%~1""): wsh.run ""C:\a.exe"" &"" """"""& lnk.TargetPath &"""""" """"""& lnk.Arguments &"""""" ""& ""/L"": close")
)
pause
复制代码

一定要搞成单行：

@echo off&setlocal EnableDelayedExpansion
set "p=%~1"
if /i not "!p:~-4!"==".LNK" ((start "" /i C:\a.exe "%~1" /L)&exit) else mshta VBScript:Execute("set wsh=CreateObject(""WScript.Shell""): set lnk=wsh.CreateShortcut(""%~1""): wsh.run ""C:\a.exe"" &"" """"""& lnk.TargetPath &"""""" """"""& lnk.Arguments &"""""" ""& ""/L"": close")
pause
复制代码

CommandBatCmd

回复 3# adan1


    如果那个单行命令的P文双击和拖放运行都没问题，
而在cmd窗口中去用批处理+文件路径执行却出现问题，
这可能是输入时，引号的位置以及多了或少了引起的，
不知LZ输入了怎样的一行内容，执行出了错？

CommandBatCmd

回复 5# pcl_test

是啊！版主的建议很好！！！

CommandBatCmd

回复 7# adan1


    测试中出现的两个失败是正常的，不失败才不正常，
因为路径中有空格须用双引号包括后传递。
祝你心想事成！

CommandBatCmd

回复 11# adan1


   两个失败的文件不是拖放，而是手动输入的吧？！
是否想把这两个改成不要双引号，也能在CMD窗口正确运行？
是不是已经有了好想法！？