ipmitool 发表于 2017-6-23 17:59:03

[已解决]如何抓資料夾底下*.log檔就好了

本帖最后由 ipmitool 于 2017-6-26 07:57 编辑

#include <Array.au3>
#include <File.au3>
#include <MsgBoxConstants.au3>



Local $path = @ScriptDir

FindAllFile($path)





Func FindAllFile($sDir)

      Local $hSearch = FileFindFirstFile($sDir & "\*.*")

      ; 检查搜索是否成功

      If $hSearch = -1 Then Return

      While 1
                Local $sFile = FileFindNextFile($hSearch)

                If @error Then ExitLoop

                If @extended Then
                        FindAllFile($sDir & "\" & $sFile)

                                                ;if $sFile=StringRight(".log",3) Then

                        ContinueLoop

                EndIf

                $open=FileOpen("1.txt",9)

                ;带目录
                FileWrite($open,$sDir & "\" & $sFile & @crlf)

                ;文件名
                ;FileWrite($open,$sFile & @crlf)

                FileClose($open)

      WEnd

      ; 关闭搜索句柄

      FileClose($hSearch)



EndFunc



yamakawa 发表于 2017-6-25 18:19:04

if StringRight ( $sfile, 4 ) = ".log" then

ipmitool 发表于 2017-6-26 07:57:44

回复 2# yamakawa


    謝謝大大
页: [1]
查看完整版本: [已解决]如何抓資料夾底下*.log檔就好了