一键系统文件转移（支持XP~win10更新3.6）,3.0版本源码已经分享

bfgxp

收藏了，这个很好。

bfgxp

提点建议，加个功能，使用/S参数时，转移成功后，检测并删除桌面上无效的快捷方式
只需要几行代码，望楼主考虑

1. #include <File.au3>
   
2. $lnkList = _FileListToArray(@DesktopDir, "*.lnk", 1)
   
3. If @error Then Exit
   
4. For $i = 1 To $lnkList[0]
   
5.         $lnkPr = FileGetShortcut(@DesktopDir & "" & $lnkList[$i])
   
6.         If @error Then
   
7.                 FileDelete(@DesktopDir & "" & $lnkList[$i])
   
8.         Else
   
9.                 If Not FileExists($lnkPr[0]) Then FileDelete(@DesktopDir & "" & $lnkList[$i])
   
10.         EndIf
    
11. Next
    

复制代码