【已解决】VBS获取lnk快捷方式属性，修改为 将结果保存为文本

yyz219

问题解决了：

1. Set oWshShell = CreateObject("WScript.Shell")
   
2. Set oWshShortcut = oWshShell.CreateShortcut("D:\桌面\Desktop\关机.lnk")
   
3. Dim fso, MyFile
   
4. Set fso = CreateObject("Scripting.FileSystemObject")
   
5. Set MyFile = fso.CreateTextFile("#.txt", True)
   
6. MyFile.WriteLine(oWshShortcut.TargetPath)
   
7. MyFile.Close
   

复制代码

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

1. Set oWshShell = CreateObject("WScript.Shell")
   
2. Set oWshShortcut = oWshShell.CreateShortcut("D:\桌面\Desktop\关机.lnk")
   
3. MsgBox oWshShortcut.TargetPath

复制代码

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

谢谢

77七

1. Set oWshShell = CreateObject("WScript.Shell")
   
2. Set oWshShortcut = oWshShell.CreateShortcut("D:\桌面\Desktop\关机.lnk")
   
3. Dim fso, MyFile
   
4. Set fso = CreateObject("Scripting.FileSystemObject")
   
5. Set MyFile = fso.CreateTextFile("#.txt", True)
   
6. MyFile.WriteLine(oWshShortcut.TargetPath)
   
7. MyFile.Close

复制代码

现学现卖...

yyz219

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

    成功了 非常感谢