[文件操作] 批处理如何清除桌面无效的快捷方式？

fangheng_180

我做了影子系统，把桌面文件不还原，重新开机会去掉软件，但是快捷方式去不了，我想做做Bat文件，随电脑启动，一启动就搜索到无效的那个快捷方式，然后删除，怎么写这个文件啊？

pcl_test

vbs

Set Shell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject") 
Desk = Shell.SpecialFolders("DeskTop")
Set Folder = fso.GetFolder(Desk)
Set Files = Folder.Files
For Each File In Files
    If Lcase(Right(File,4))=".lnk" Then Dellnk(File)
Next

Function Dellnk(objlnk)
    n=0
    Set Link = Shell.CreateShortcut(objlnk)
    GetTarget = Link.Targetpath
    If not fso.FileExists(GetTarget) Then n=n+1
    If not fso.FolderExists(GetTarget) Then n=n+1
    If n=2 Then fso.DeleteFile objlnk
End Function
复制代码