批处理之家 - Powered by Discuz! Board

标题: [问题求助] 【已解决】VBS获取lnk快捷方式属性，修改为将结果保存为文本 [打印本页]

作者: yyz219 时间: 2022-12-28 22:20 标题: 【已解决】VBS获取lnk快捷方式属性，修改为将结果保存为文本

问题解决了：

Set oWshShell = CreateObject("WScript.Shell")
Set oWshShortcut = oWshShell.CreateShortcut("D:\桌面\Desktop\关机.lnk")
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("#.txt", True)
MyFile.WriteLine(oWshShortcut.TargetPath)
MyFile.Close
复制代码

********************************************************
问题：
已有代码：

Set oWshShell = CreateObject("WScript.Shell")
Set oWshShortcut = oWshShell.CreateShortcut("D:\桌面\Desktop\关机.lnk")
MsgBox oWshShortcut.TargetPath
复制代码

运行后，能够显示 D:\桌面\Desktop\关机.lnk 所指的目标：D:\1绿色软件\bat批处理\注销＋重新启动\关机.bat
********************************************************************************
现在希望：
运行以后，没有任何显示、没有对话框，直接将结果保存为：#.txt

谢谢

作者: 77七 时间: 2022-12-28 23:07

Set oWshShell = CreateObject("WScript.Shell")
Set oWshShortcut = oWshShell.CreateShortcut("D:\桌面\Desktop\关机.lnk")
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("#.txt", True)
MyFile.WriteLine(oWshShortcut.TargetPath)
MyFile.Close
复制代码

现学现卖...

作者: yyz219 时间: 2022-12-29 08:25

现学现卖...
77七发表于 2022-12-28 23:07

成功了非常感谢

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