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

h111666b · 发表于 2021-11-4 22:19:50

本帖最后由 h111666b 于 2021-11-5 08:52 编辑

;脚本

;搜索文件夹
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 · 发表于 2021-11-4 22:56:20

#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 · 发表于 2021-11-5 08:51:10

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

		自动登录	找回密码
密码			加入

[网络通信] 【已解决】搜索到文件和没有搜索到文件做相应提示