terse

WScript.Shell 解决部分问题 某些情况下可以用ADODB.Stream处理一下

1>1/* :
@echo off
cscript //E:JScript //nologo "%~f0">#.txt
exit
*/
var ph = new ActiveXObject('htmlfile').parentWindow.clipboardData.getData('Text');
var ws = new ActiveXObject("WScript.Shell");
WSH.Echo(ws.CreateShortcut(ph).TargetPath);
复制代码

yyz219

czjt1234 发表于 2022-12-28 18:56

成功，速度不错
**************************
1.我现在不想粘贴.lnk的路径，将 D:\桌面\Desktop\关机.lnk 直接写入里面（双击就出结果）
2.将结果保存为：#.txt
（不要有任何显示、对话框）

代码应该怎么样？谢谢
   

yyz219

czjt1234 发表于 2022-12-28 18:56

    我试一试先 谢谢

czjt1234

s = CreateObject("htmlfile").parentWindow.clipboardData.getData("text")
s = InputBox("【右键】粘贴.lnk路径", , s)
Set oWshShell = CreateObject("WScript.Shell")
Set oWshShortcut = oWshShell.CreateShortcut(s)
MsgBox oWshShortcut.TargetPath
复制代码

yyz219

回复  yyz219


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

   vbs又是怎样的的？谢谢

czjt1234

回复 27# yyz219


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

yyz219

回复  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

用上面代码，一样有一些快捷方式不行

yyz219

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

    我试一试 谢谢

terse

回复 24# yyz219
正如16楼B版主解释 部分INK文件无用？
直接FIND呢

for /f "eol=/ delims=" %%i in ('find ":\" ^<"%t%"') do echo;%i
复制代码

yyz219

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

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

但是，一样是有一些快捷方式没有显示

yyz219

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

    我在试一试 谢谢

terse

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

yyz219

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

    这样显示的是：快捷方式所指向目标所在目录

yyz219

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

    我试一试先 谢谢

terse

试试这样呢

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