[已解决]帮我看下“查找快捷方式所指向目标.bat”那里出了问题，谢谢

yyz219

最佳方案：
（主要这些代码能够在PE中运行）
方法1

1. @echo off
   
2. REM 把Lnk文件拖到这里
   
3. mshta VBScript:Execute("s=CreateObject(""WScript.Shell"").CreateShortcut(""%~f1"").TargetPath:CreateObject(""Scripting.FileSystemObject"").OpenTextFile(""#.txt"",2,True).Write(s):close")

复制代码

方法2：

1. 
   
2. ::【拖到这里：快捷方式所指向目标保存文本"#.txt"】
   
3. @echo off
   
4. >"快捷方式所指向目标保存文本.vbs" echo Set oWshShell = CreateObject("WScript.Shell")
   
5. >>"快捷方式所指向目标保存文本.vbs" echo Set oWshShortcut = oWshShell.CreateShortcut("%~1")
   
6. >>"快捷方式所指向目标保存文本.vbs" echo Dim fso, MyFile
   
7. >>"快捷方式所指向目标保存文本.vbs" echo Set fso = CreateObject("Scripting.FileSystemObject")
   
8. >>"快捷方式所指向目标保存文本.vbs" echo Set MyFile = fso.CreateTextFile("#.txt", True)
   
9. >>"快捷方式所指向目标保存文本.vbs" echo MyFile.WriteLine(oWshShortcut.TargetPath)
   
10. >>"快捷方式所指向目标保存文本.vbs" echo MyFile.Close
    
11. 
    
12. 快捷方式所指向目标保存文本.vbs
    
13. del /q 快捷方式所指向目标保存文本.vbs
    
14. exit
    

复制代码

********************************
原来的问题：
查找快捷方式所指向目标.bat

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. set /p T=【右键】粘贴.lnk路径:
   
4. for /f "tokens=* delims=" %%i in ('type "%T%"^|find ":"') do (
   
5.       set /a n=n%%2+1
   
6.       if !N! equ 2 echo %%i
   
7. )
   
8. pause
   

复制代码

要达到的效果：输入快捷方式路径（含扩展名），能够显示出快捷方式所指向目标
**********************************************************
实际情况：
1.输入：D:\桌面\Desktop\Dism++.lnk，能够正确显示
2.输入：D:\桌面\Desktop\关机.lnk，没有显示
另外，如果文件路径中有 ！号，也不能够正确显示（！号丢失）
*************************************************************
上面两个快捷方式实际所指向目标是：
D:\桌面\Desktop\Dism++.lnk————"D:\1绿色软件\bat批处理\C盘使用情况 -Dism++x64-.bat"
D:\桌面\Desktop\关机.lnk——————D:\1绿色软件\bat批处理\注销＋重新启动\关机.bat
————————————————————————————————————————————
问题不知道出现在哪里？谢谢

77七

1. @echo off
   
2. set /p T=【右键】粘贴.lnk路径:
   
3. for /f "delims=" %%i in ('type %T%^|find ":"') do (
   
4.     set "mubiao=%%i"
   
5. )
   
6. echo "%mubiao%"
   
7. pause

复制代码

不知道改的对不对，我自己试了几个没问题 复制路径带上引号，如果不带就把%T%加引号

开延迟变量，!就会被省略
数学不太好...看不懂那个公式，是固定运行几次的意思？

hfxiang

试这个

1. 
   
2. @echo off
   
3. @rem 保存为ANSI格式
   
4. for /f "tokens=* delims=" %%a in ('type "%~1"^|find ":"') do set dp=%%~a
   
5. echo;%dp%
   
6. pause
   

复制代码

yyz219

回复 3# hfxiang


    非常感谢，试一试先

hfxiang

补充一下，是直接拖放.lnk文件到脚本上即可，不用手工录入路径

yyz219

试这个
hfxiang 发表于 2022-12-28 10:41

    ！ 号问题解决了
********************************
但是，对  D:\桌面\Desktop\关机.lnk  显示不对

显示：
/D:\
请按任意键继续. . .

hfxiang

回复 6# yyz219


    请问“D:\ 桌面 \Desktop\ 关机.lnk”的快捷方式能正常正常运行吗？

yyz219

回复  yyz219


    请问“D:\ 桌面 \Desktop\ 关机.lnk”的快捷方式能正常正常运行吗？
hfxiang 发表于 2022-12-28 10:52

    能够正常运行的

yyz219

不知道改的对不对，我自己试了几个没问题 复制路径带上引号，如果不带就把%T%加引号

开延迟变量，!就会被 ...
77七 发表于 2022-12-28 10:37

    非常感谢 我试一试先

yyz219

不知道改的对不对，我自己试了几个没问题 复制路径带上引号，如果不带就把%T%加引号

开延迟变量，!就会被 ...
77七 发表于 2022-12-28 10:37

    ！ 号问题解决了
********************************
但是，对  D:\桌面\Desktop\关机.lnk  显示不对

显示：
/D:\
请按任意键继续. . .
（加  引号也不能够解决问题）

77七

回复 10# yyz219

D:\桌面\Desktop\Dism++.lnk 这个正常？你重新创建“关机”的快捷方式试一试

yyz219

回复  yyz219

D:\桌面\Desktop\Dism++.lnk 这个正常？你重新创建“关机”的快捷方式试一试
77七 发表于 2022-12-28 11:03

    重新创建“关机”的快捷方  两个都正常

Batcher

回复 6# yyz219


打开一个CMD窗口，执行：
type "D:\桌面\Desktop\关机.lnk" | find ":\"
就会发现这个有问题的lnk文件跟其他lnk文件不一样

yyz219

回复  yyz219


打开一个CMD窗口，执行：
type "D:\桌面\Desktop\关机.lnk" | find ":\"
就会发现这个 ...
Batcher 发表于 2022-12-28 11:28

    Microsoft Windows [版本 6.1.7601]
版权所有 (c) 2009 Microsoft Corporation。保留所有权利。

C:\Users\Administrator>type "D:\桌面\Desktop\关机.lnk" | find ":\"
/D:\

C:\Users\Administrator>

Batcher

回复 10# yyz219

1. @echo off
   
2. powershell "$objShell = New-Object -ComObject WScript.Shell; $objShell.CreateShortcut('D:\桌面\Desktop\关机.lnk').TargetPath"
   
3. pause

复制代码