找回密码  加入

QQ登录

只需一步,快速开始

AUTOIT CN

搜索
查看: 1004|回复: 2

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

[复制链接]
发表于 2017-6-23 17:59:03 | 显示全部楼层 |阅读模式
本帖最后由 ipmitool 于 2017-6-26 07:57 编辑
  1. #include <Array.au3>
  2. #include <File.au3>
  3. #include <MsgBoxConstants.au3>



  4. Local $path = @ScriptDir

  5. FindAllFile($path)





  6. Func FindAllFile($sDir)

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

  8.         ; 检查搜索是否成功

  9.         If $hSearch = -1 Then Return

  10.         While 1
  11.                 Local $sFile = FileFindNextFile($hSearch)

  12.                 If @error Then ExitLoop

  13.                 If @extended Then
  14.                         FindAllFile($sDir & "" & $sFile)

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

  16.                         ContinueLoop

  17.                 EndIf

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

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

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

  23.                 FileClose($open)

  24.         WEnd

  25.         ; 关闭搜索句柄

  26.         FileClose($hSearch)



  27. EndFunc



复制代码
发表于 2017-6-25 18:19:04 | 显示全部楼层
  1. if StringRight ( $sfile, 4 ) = ".log" then
复制代码
 楼主| 发表于 2017-6-26 07:57:44 | 显示全部楼层
回复 2# yamakawa


    謝謝大大
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|小黑屋|手机版|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2020-1-25 22:51 , Processed in 0.078124 second(s), 22 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表