批处理之家 - Powered by Discuz! Board

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

作者: 小智BAT 时间: 2014-12-10 18:24 标题: [已解决]批处理如何读取快捷方式获取起始位置路径。

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

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

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

作者: DAIC 时间: 2014-12-10 21:07

哪个贴？我也试试

作者: 李安阳 时间: 2014-12-10 21:35

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

作者: apang 时间: 2014-12-10 21:45

回复 3# 李安阳

你是要获取起始位置，还是要获取目标路径？

作者: 小智BAT 时间: 2014-12-11 08:52

回复 3# 李安阳

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

作者: 小智BAT 时间: 2014-12-11 08:52

回复 4# apang

获取起始位置。。。。

作者: apang 时间: 2014-12-11 11:19

回复 6# 小智BAT

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

批处理可以这样：

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

作者: terse 时间: 2014-12-11 15:46

也补个

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

作者: pcl_test 时间: 2015-4-9 19:25

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

欢迎光临批处理之家 (http://bbs.bathome.net/)