如题，或者类似功能 比如转到 资源管理器-所在目录
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
如何用批处理实现 xp 快捷方式的查找目标功能
标题：如何用批处理实现 xp 快捷方式的查找目标功能
到这里看看
http://www.cn-dos.net/forum/viewthread.php?tid=25053
[ Last edited by 无奈何 on 2006-11-25 at 06:00 AM ]
http://www.cn-dos.net/forum/viewthread.php?tid=25053
[ Last edited by 无奈何 on 2006-11-25 at 06:00 AM ]
@echo off
if "%~1" == "" goto :EOF
::检查扩展名是否是快捷方式文件
if /i "%~x1" NEQ ".lnk" goto error
for /f "delims=" %%i in ('find ":" "%~1" ^|findstr /r "^[A-z]:[\\]"') do (
start "" explorer /select,/n,"%%~fi"
)
goto :EOF
:error
::抛出错误提示窗口
start cmd /c "title 提示！&mode con cols=30 lines=5 &for /l %%i in (5,-1,1) do cls &echo. 所选文件不是快捷方式！( %%i )&ping/n 2 127.1>nul"
谢谢！
又 能否加到右键菜单呢
在注册表里试了一下，总是出现 所选文件不是快捷方式！
好像是参数不对
请高手指教
if "%~1" == "" goto :EOF
::检查扩展名是否是快捷方式文件
if /i "%~x1" NEQ ".lnk" goto error
for /f "delims=" %%i in ('find ":" "%~1" ^|findstr /r "^[A-z]:[\\]"') do (
start "" explorer /select,/n,"%%~fi"
)
goto :EOF
:error
::抛出错误提示窗口
start cmd /c "title 提示！&mode con cols=30 lines=5 &for /l %%i in (5,-1,1) do cls &echo. 所选文件不是快捷方式！( %%i )&ping/n 2 127.1>nul"
谢谢！
又 能否加到右键菜单呢
在注册表里试了一下，总是出现 所选文件不是快捷方式！
好像是参数不对
请高手指教
可能的原因是：Windows会自动把 .lnk 指向目标文件。
Originally posted by aaa321a at 2006-11-21 06:02 PM:
@echo off
if "%~1" == "" goto :EOF
::检查扩展名是否是快捷方式文件
if /i "%~x1" NEQ ".lnk" goto error
for /f "delims=" %%i in ('find ":" "%~1" ^|findstr /r "^:"')
do (
explorer /select,/e,"%%~dpi"
)
goto :EOF
:error
::抛出错误提示窗口
start cmd /c "title 提示！&mode con cols=30 lines=5 &for /l %%i in (5,-1,1) do cls &echo. 所选文件不是快捷方式！( %%i ) &ping/n 2 127.1>nul"
[ Last edited by gues1688 on 2007-1-28 at 12:26 AM ]
如果是增加到右键菜单那就不必判断是否是.lhk文件了。在CMD下直接执行：
我都是这么用的^_^ 如果是放到文件中，记得双写百分号。
reg add HKCR\lnkfile\shell\ShortCutOpen /f /ve /d "定位文件(&E)"
reg add HKCR\lnkfile\shell\ShortCutOpen\command /f /ve /d "cmd /cfor /f \"delims=\" %%i in ('find \":\" \"%1\"^|findstr /r \"^^:\"') do @(explorer /select,/n,\"%~fi\")我都是这么用的^_^ 如果是放到文件中，记得双写百分号。
VBS版
命令版:
@echo off
echo Set OS = GetObject("winmgmts:")>%windir%\czmd.vbs
echo Set CF = OS.ExecQuery("Select * From Win32_ShortcutFile WHERE Name = '" ^& Replace(WScript.Arguments(0),"\","\\") ^& "'")>>%windir%\czmd.vbs
echo Set WS = WScript.CreateObject("WScript.Shell")>>%windir%\czmd.vbs
echo For Each objFile in CF>>%windir%\czmd.vbs
echo WS.Run ("explorer /select," ^& objFile.Target)>>%windir%\czmd.vbs
echo Next>>%windir%\czmd.vbs
REG ADD HKCR\lnkfile\shell\查找目标\command /ve /d "C:\WINDOWS\system32\WScript.exe c:\windows\czmb.vbs %%1" /f命令版:
@echo off
reg add HKCR\lnkfile\shell\定位文件\command /f /ve /d "cmd /cfor /f \"delims=\" %%%%i in ('find \":\" \"%%1\"^|findstr \"^^:\"') do explorer /select,/n,\"%%~fi\"来源：https://www.cn-dos.net/forum/viewthread.php?tid=24964 · 打印时间 2026-08-05 15:42