Board logo

标题: [文件操作] 批处理如何清除桌面无效的快捷方式？ [打印本页]
作者: fangheng_180    时间: 2015-9-26 21:59     标题: 批处理如何清除桌面无效的快捷方式？

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

本帖最后由 pcl_test 于 2015-9-26 22:55 编辑

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
复制代码




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2