Board logo

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

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

问题解决了:
  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七    时间: 2022-12-28 23:07

  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    时间: 2022-12-29 08:25

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



    成功了 非常感谢




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2