[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] 【已解决】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

谢谢
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
我是小白,希望老师多多帮助

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



    成功了 非常感谢
我是小白,希望老师多多帮助

TOP

  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

评分人数

bat小白,请多指教!谢谢!

TOP

返回列表