批量删除桌面所有备注是"au"的快捷方式

qq724174 · 发表于 2010-11-11 09:00:09

本人网吧维护工作，桌面图标更换不方便
通过AU3生成的桌面快捷方式都设置了备注"au"
要怎么才能批量删除啊？请大家指点。

qq54222717 · 发表于 2010-11-11 10:35:38

FileDelete

.個朲綉√ · 发表于 2010-11-11 10:39:36

刚学Au3的时候搞过，现在都忘了。让我想想

boyhong · 发表于 2010-11-11 11:05:56

FOR获取桌面所有快捷方式一个一个地用正则匹配检测其属性au，然后进行其操作。。。。

qq724174 · 发表于 2010-11-11 23:06:18

我就是不知道怎么批量获取桌面所有备注是AU的方法，可以交下我吗

afan · 发表于 2010-11-12 00:09:52

CKLnk(@DesktopDir)
CKLnk(@DesktopCommonDir)

Func CKLnk($Path, $Description = 'au')
        Local $search = FileFindFirstFile($Path & "\*.lnk"), $File, $details
        While 1
                $File = FileFindNextFile($search)
                $details = FileGetShortcut($Path & '\' & $File)
                If @error Then ExitLoop
                If $details[3] == $Description Then MsgBox(0, '', $File)
        WEnd
        FileClose($search)
EndFunc   ;==>CKLnk

qq724174 · 发表于 2010-11-12 15:03:36

好的谢谢你了。

		自动登录	找回密码
密码			加入

[系统综合] 批量删除桌面所有备注是"au"的快捷方式

相关帖子