论坛 › 已解决问题区 › 【已解决】搜索到文件和没有搜索到文件做相应提示

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
                        If $File[$i] = $FileName Then
                              MsgBox(0, "", "找到文件")
                        Else
                              $Array = StringSplit($Path, "\", 1)
                              If $Array < $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
                        If $File[$i] = $FileName Then
                                $bOk = True
                                MsgBox(0, "", "找到文件")
                        Else
                                $Array = StringSplit($Path, "\", 1)
                                If $Array < $Layer Then
                                        FindFile($Path & "\" & $File[$i], $FileName, $Layer)
                                EndIf
                        EndIf
                Next
        EndIf
EndFunc   ;==>FindFile

h111666b 发表于 2021-11-5 08:51:10

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

查看完整版本: 【已解决】搜索到文件和没有搜索到文件做相应提示