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

Question

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

如果快捷方式链接到不存在的文件，我该怎么办？

Answer 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