批处理如何清除桌面无效的快捷方式？

fangheng_180

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

pcl_test

vbs

1. Set Shell = CreateObject("WScript.Shell")
   
2. Set fso = CreateObject("Scripting.FileSystemObject")
   
3. Desk = Shell.SpecialFolders("DeskTop")
   
4. Set Folder = fso.GetFolder(Desk)
   
5. Set Files = Folder.Files
   
6. For Each File In Files
   
7.     If Lcase(Right(File,4))=".lnk" Then Dellnk(File)
   
8. Next
   
9. 
   
10. Function Dellnk(objlnk)
    
11.     n=0
    
12.     Set Link = Shell.CreateShortcut(objlnk)
    
13.     GetTarget = Link.Targetpath
    
14.     If not fso.FileExists(GetTarget) Then n=n+1
    
15.     If not fso.FolderExists(GetTarget) Then n=n+1
    
16.     If n=2 Then fso.DeleteFile objlnk
    
17. End Function

复制代码