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

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