【已解决】搜索到文件和没有搜索到文件做相应提示

h111666b

;脚本

;搜索文件夹
FindFile("E:", "新建文件夹", 5)

Func FindFile($Path, $FileName, $Layer)
        $File = _FileListToArray($Path)
        If Not @error Then
                For $i = 1 To $File[0]
                        If $File[$i] = $FileName Then
                                MsgBox(0, "", "找到文件")
                        Else
                                $Array = StringSplit($Path, "\", 1)
                                If $Array[0] < $Layer Then
                                        FindFile($Path & "\" & $File[$i], $FileName, $Layer)
                                EndIf
                        EndIf
                Next
        EndIf
EndFunc   ;==>FindFile

MsgBox(0, "", "没有找到文件")


现在的问题是，搜索到文件夹2项 "MsgBox" 都出提示框，怎么才能 "搜索到文件夹" 和 "没有搜索到文件夹" 只做相应提示1项提示框

afan

#include <File.au3>

Global $bOk = False
FindFile("E:", "新建文件夹", 5)
If Not $bOk Then MsgBox(48, "", "没有找到文件")

Func FindFile($Path, $FileName, $Layer)
        Local $File = _FileListToArray($Path)
        If Not @error Then
                For $i = 1 To $File[0]
                        If $File[$i] = $FileName Then
                                $bOk = True
                                MsgBox(0, "", "找到文件")
                        Else
                                $Array = StringSplit($Path, "\", 1)
                                If $Array[0] < $Layer Then
                                        FindFile($Path & "\" & $File[$i], $FileName, $Layer)
                                EndIf
                        EndIf
                Next
        EndIf
EndFunc   ;==>FindFile

h111666b

困扰了几天的问题被解决了，支持论坛，感谢版主