论坛 › 『 提问交流 』 › 帮忙看下代码哪里错了？

wjscxs 发表于 2009-8-19 18:11:00

帮忙看下代码哪里错了？

本帖最后由 wjscxs 于 2010-5-29 05:14 编辑

#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) Then    ;如果目标快捷方式的文件存在
        MsgBox(4096, "File:", $file)
                MsgBox(4096, "CUT:", $cut)
        EndIf
WEnd

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

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

bing614 发表于 2009-8-19 18:18:14

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

wjscxs 发表于 2009-8-19 18:26:11

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

bing614 发表于 2009-8-19 18:33:34

我看就是少了 \ 的问题！#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) Then    ;如果目标快捷方式的文件存在
      MsgBox(4096, "File:", $file)
                MsgBox(4096, "CUT:", $cut)
      EndIf
WEnd

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

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

afan 发表于 2009-8-19 18:36:17

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

wjscxs 发表于 2009-8-19 18:58:22

谢谢。.......

查看完整版本: 帮忙看下代码哪里错了？