[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
回复 14# yyz219


lnk文件不是纯文本文件,使用 type "xxx.lnk" | find ":\" 大部分情况下能成功的原因是巧合。
少数lnk文件无法用这个方法得到想要的结果。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复  yyz219
Batcher 发表于 2022-12-28 11:38



    我试一试先 感谢
我是小白,希望老师多多帮助

TOP

回复  yyz219
Batcher 发表于 2022-12-28 11:38



    成功了

就是太慢

能够加快速度吗?
我是小白,希望老师多多帮助

TOP

试试这样呢
  1. @echo off
  2. set /p T=【右键】粘贴.lnk路径
  3. for /f "delims=" %%i in ('find ":" "%t%" ^|findstr /r "^[A-z]:[\\]"') do (
  4.       echo "%%~dpi"
  5. )
  6. pause
复制代码
1

评分人数

TOP

试试这样呢
terse 发表于 2022-12-28 12:19



    我试一试先 谢谢
我是小白,希望老师多多帮助

TOP

试试这样呢
terse 发表于 2022-12-28 12:19



    这样显示的是:快捷方式所指向目标所在目录
我是小白,希望老师多多帮助

TOP

回复 21# yyz219
这样呢 echo "%%i"

TOP

回复  yyz219
这样呢 echo "%%i"
terse 发表于 2022-12-28 17:00



    我在试一试 谢谢
我是小白,希望老师多多帮助

TOP

回复  yyz219
这样呢 echo "%%i"
terse 发表于 2022-12-28 17:00


能够显示快捷方式所指向的目标了

但是,一样是有一些快捷方式没有显示
我是小白,希望老师多多帮助

TOP

回复 24# yyz219
正如16楼B版主解释 部分INK文件无用?
直接FIND呢
  1. for /f "eol=/ delims=" %%i in ('find ":\" ^<"%t%"') do echo;%i
复制代码

TOP

回复  yyz219
正如16楼B版主解释 部分INK文件无用?
直接FIND呢
terse 发表于 2022-12-28 18:26



    我试一试 谢谢
我是小白,希望老师多多帮助

TOP

回复  yyz219
正如16楼B版主解释 部分INK文件无用?
直接FIND呢
terse 发表于 2022-12-28 18:26


@echo off
for /f "eol=/ delims=" %%i in ('find ":\" ^<"%1"') do echo;%%i
pause >nul
exit

用上面代码,一样有一些快捷方式不行
我是小白,希望老师多多帮助

TOP

回复 27# yyz219


   16楼已经说得很清楚了
要么用ps,要嫌ps慢就得vbs
1

评分人数

    • yyz219: ps是这样的?谢谢技术 + 1

QQ 20147578

TOP

本帖最后由 yyz219 于 2022-12-28 18:47 编辑
回复  yyz219


   16楼已经说得很清楚了
要么用ps,要嫌ps慢就得vbs
czjt1234 发表于 2022-12-28 18:41



   vbs又是怎样的的?谢谢
我是小白,希望老师多多帮助

TOP

本帖最后由 czjt1234 于 2022-12-28 18:59 编辑
  1. s = CreateObject("htmlfile").parentWindow.clipboardData.getData("text")
  2. s = InputBox("【右键】粘贴.lnk路径", , s)
  3. Set oWshShell = CreateObject("WScript.Shell")
  4. Set oWshShortcut = oWshShell.CreateShortcut(s)
  5. MsgBox oWshShortcut.TargetPath
复制代码

QQ 20147578

TOP

返回列表