[文件操作] [已解决]批处理如何获取lnk快捷方式文件指向的目标程序的路径及其附带的参数

@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
复制代码

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

final.bat C:\Users\Adan\Desktop\TEST\1_2_3\notepad.exe
final.bat "C:\Users\Adan\Desktop\TEST\1_2_3\notepad.exe"
final.bat C:\Users\Adan\Desktop\TEST\1_2_3\notepad.exe.lnk
final.bat "C:\Users\Adan\Desktop\TEST\1_2_3\notepad.exe.lnk"
final.bat C:\Users\Adan\Desktop\TEST\1 2 3\notepad.exe                        <- 失效
final.bat "C:\Users\Adan\Desktop\TEST\1 2 3\notepad.exe"
final.bat C:\Users\Adan\Desktop\TEST\1 2 3\notepad.exe.lnk                    <- 失效
final.bat "C:\Users\Adan\Desktop\TEST\1 2 3\notepad.exe.lnk"
复制代码

     %~I          - 删除任何引号(")，扩展 %I
     %~fI         - 将 %I 扩展到一个完全合格的路径名
     %~dI        - 仅将 %I 扩展到一个驱动器号
     %~pI        - 仅将 %I 扩展到一个路径
     %~nI        - 仅将 %I 扩展到一个文件名
     %~xI        - 仅将 %I 扩展到一个文件扩展名
     %~sI        - 扩展的路径只含有短名
     %~aI        - 将 %I 扩展到文件的文件属性
     %~tI        - 将 %I 扩展到文件的日期/时间
     %~zI        - 将 %I 扩展到文件的大小
     %~$PATH:I   - 查找列在路径环境变量的目录，并将 %I 扩展
                   到找到的第一个完全合格的名称。如果环境变量名
                   未被定义，或者没有找到文件，此组合键会扩展到空字符串

可以组合修饰符来得到多重结果:

     %~dpI       - 仅将 %I 扩展到一个驱动器号和路径
     %~nxI       - 仅将 %I 扩展到一个文件名和扩展名
     %~fsI       - 仅将 %I 扩展到一个带有短名的完整路径名
     %~dp$PATH:I - 搜索列在路径环境变量的目录，并将 %I 扩展
                   到找到的第一个驱动器号和路径。
     %~ftzaI     - 将 %I 扩展到类似输出线路的 DIR
复制代码

@echo off & setlocal EnableDelayedExpansion & 
set "pg=%windir%\a.exe" & set "LID=/L" & 
if /i "%~x1" neq ".LNK" ((start "" /i !pg! %1 !LID!)&echo exit
) else mshta VBScript:Execute("set wsh=CreateObject(""WScript.Shell""): set lnk=wsh.CreateShortcut(""%~1""): wsh.run ""!pg!"" &"" """"""& lnk.TargetPath &"""""" """"""& lnk.Arguments &"""""" ""& ""!LID!"": close")

:pause
复制代码

@goto :main

@rem Usage:
 rem "快捷方式的读取和运行.bat" "C:\your path\Google Chrome (重定向用户文件夹).lnk"
 rem "C:\your path\Google Chrome (重定向用户文件夹).lnk" 右键“属性” - 目标:
 rem "C:\Program Files\Google\Chrome\Application\chrome.exe" --enable-contextual-search --user-data-dir="D:\Program Files\Google\Chrome\User Data" --disk-cache-dir="D:\Program Files\Google\Chrome\cache"

 
:main
@echo off&setlocal EnableDelayedExpansion
set "p=%~1" 
if /i not "%~x1"==".LNK" (echo exit) else (
	(echo Dim objShell, objFolder, objFolderItem, objShellLink, s
	echo Set objShell = CreateObject("Shell.Application"^)               ''创建对象
	echo Set objFolder = objShell.NameSpace("%~dp1"^)                    ''LNK文件所在目录路径
	echo Set objFolderItem = objFolder.ParseName("%~nx1"^)               ''LNK文件名
	echo Set objShellLink = objFolderItem.GetLink                        ''获取快捷方式对象
	echo Set wshShell=CreateObject("WScript.Shell"^)
	@REM 方法 8
	REM echo wshShell.Run """" ^& objShellLink.Path ^& """" ^& Chr(32^) ^& objShellLink.Arguments
	@REM 方法 7
	echo wshShell.Run """%~1"""
	Set wshShell = Nothing
	Set objShell = Nothing
	)>"%TEMP%\makelnk.vbs"
	"%TEMP%"\makelnk.vbs
	del /f /q "%TEMP%\makelnk.vbs"
)
goto :eof
复制代码