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

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