帮忙看下代码哪里错了？

wjscxs

#Region ;**** 参数创建于 AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Allow_Decompile=n
#EndRegion ;**** 参数创建于 AutoIt3Wrapper_GUI ****
$search = FileFindFirstFile(@DesktopDir&"*.lnk")  
; 检查搜索是否成功
While 1
    $file = FileFindNextFile($search)
        $cut = FileGetShortcut(@DesktopDir&$file)  ;获取桌面快捷方式的属性
    If @error Then ExitLoop
        If FileExists($cut[0]) Then    ;如果目标快捷方式的文件存在
        MsgBox(4096, "File:", $file)
                MsgBox(4096, "CUT:", $cut[0])
        EndIf
WEnd

; 关闭搜索句柄
FileClose($search)

;  搜索桌面没用的快捷方式，并且提示！

bing614

FileFindFirstFile(@DesktopDir&"\*.lnk")  少了一个 \ 应该这样写才对.

wjscxs

可以的，我是编译器没实现我要的目的：搜索目标无效快捷方式，给出提示，建议高手在编译器里编译下

bing614

我看就是少了 \ 的问题！

#Region ;**** 参数创建于 AutoIt3Wrapper_GUI ****
#EndRegion ;**** 参数创建于 AutoIt3Wrapper_GUI ****
$search = FileFindFirstFile(@DesktopDir&"\*.lnk")  
; 检查搜索是否成功
While 1
    $file = FileFindNextFile($search) 
        $cut = FileGetShortcut(@DesktopDir & "" & $file)  ;获取桌面快捷方式的属性
    If @error Then ExitLoop
        If FileExists($cut[0]) Then    ;如果目标快捷方式的文件存在
        MsgBox(4096, "File:", $file)
                MsgBox(4096, "CUT:", $cut[0])
        EndIf
WEnd

; 关闭搜索句柄
FileClose($search)

;  搜索桌面没用的快捷方式，并且提示！

afan

$search = FileFindFirstFile(@DesktopDir & "\*.lnk")
While 1
        $file = FileFindNextFile($search)
        $cut = FileGetShortcut(@DesktopDir & '\' & $file) ;获取桌面快捷方式的属性
        If @error Then ExitLoop
        If FileExists($cut[0]) Then ;如果目标快捷方式的文件存在
                ;MsgBox(4096, "File & CUT:", $file & @CRLF & $cut[0])
        Else
                MsgBox(4096, "Error:", '"' & $file & '" 指向的文件： "' & $cut[0] & '" 不存在  ' & @CRLF & '点击确定删除此快捷方式 ')
                ;FileDelete(@DesktopDir & '\' & $file)
        EndIf
WEnd
FileClose($search); 关闭搜索句柄

wjscxs

谢谢。.......