|
提点建议,加个功能,使用/S参数时,转移成功后,检测并删除桌面上无效的快捷方式
只需要几行代码,望楼主考虑
- #include <File.au3>
- $lnkList = _FileListToArray(@DesktopDir, "*.lnk", 1)
- If @error Then Exit
- For $i = 1 To $lnkList[0]
- $lnkPr = FileGetShortcut(@DesktopDir & "" & $lnkList[$i])
- If @error Then
- FileDelete(@DesktopDir & "" & $lnkList[$i])
- Else
- If Not FileExists($lnkPr[0]) Then FileDelete(@DesktopDir & "" & $lnkList[$i])
- EndIf
- Next
复制代码 |
|