中国DOS联盟

如题，或者类似功能 比如转到 资源管理器-所在目录

到这里看看
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"



谢谢！
又 能否加到右键菜单呢

在注册表里试了一下，总是出现 所选文件不是快捷方式！
好像是参数不对
请高手指教

可能的原因是：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\"