删除链接到不存在文件的快捷方式答案

【问题标题】：Delele shortcut linking to non-existing file删除链接到不存在文件的快捷方式
【发布时间】：2013-04-15 17:33:35
【问题描述】：

这是我的问题：我需要编写一个脚本来删除链接到不存在文件的快捷方式，并显示哪些快捷方式被删除。 JScript 或 VBScript 上的脚本（Windows 脚本宿主）

如果快捷方式链接到不存在的文件，我该如何获取？

【问题讨论】：

【解决方案1】：

您可以通过（重新）创建快捷方式来打开它。然后你可以使用FileExists方法来检查TargetPath是否存在。

Set fso = CreateObject("Scripting.FileSystemObject")
Set sh  = CreateObject("WScript.Shell")

For Each f In fso.GetFolder("C:\path\to\shortcuts").Files
  If LCase(fso.GetExtensionName(f.Name)) = "lnk" Then
    Set lnk = sh.CreateShortcut(f.Path)
    If Not fso.FileExists(lnk.TargetPath) Then
      WScript.Echo "Deleting shortcut '" & f.Path & "'."
      f.Delete
    End If
  End If
Next

【讨论】：

像魅力一样工作！谢谢！唯一的问题是：在 JScript 上编写此脚本（用于练习）与在 vbs 上的方式相同吗？相同的功能和相同的方法？
如有疑问，read documentation。