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

[系统相关] [已解决]批处理如何读取快捷方式获取起始位置路径。

本帖最后由 小智BAT 于 2015-4-9 19:29 编辑

如题,例如桌面上的腾讯QQ.lnk,如何获取起始位置。。看过之前斑竹发过的贴,可是发现失败!

哪位大神可以帮帮忙,万分感谢。。。。

哪个贴?我也试试

TOP

  1. @echo off
  2. if exist tmp.txt del tmp.txt
  3. for /f "delims=" %%i in ('type *.lnk ^| find ":\" ^| find /v "/" ^| find ".exe"') do (
  4. echo %%i >>tmp.txt
  5. )
  6. cls
  7. pause
复制代码

TOP

回复 3# 李安阳


    你是要获取起始位置,还是要获取目标路径?

TOP

回复 3# 李安阳


    我要获取的是起始位置,不是目标路径。。。 该怎么改的???

TOP

回复 4# apang


    获取起始位置。。。。

TOP

回复 6# 小智BAT


    可以考虑用 vbs 获取:http://www.bathome.net/thread-33298-1-1.html

批处理可以这样:
  1. @echo off
  2. %1mshta VBScript:CreateObject("WScript.Shell").Run("""%~0"" : """^&CreateObject("Shell.Application").NameSpace(0).ParseName("腾讯QQ.LNK").GetLink.WorkingDirectory^&"""")(close) & exit/b
  3. echo,%~2
  4. pause
复制代码

TOP

也补个
  1. @echo off
  2. mshta "javascript:new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(new ActiveXObject("WScript.Shell").CreateShortcut("腾讯QQ.LNK").WorkingDirectory);close()"|more
  3. pause
复制代码

TOP

问题得到解决后请在标题最前面注明[已解决]
http://www.bathome.net/thread-3473-1-1.html

TOP

返回列表