【已解决】如何找出一个文件中日期最近的文件

lion.lee

想了很多办法尝试找出一个文件中日期最近的文件，但以下这段代码可靠性实在太差，请各位大大帮忙看看如何修改。多谢！

#include <date.au3>
#include <math.au3>
MsgBox(0,"该文件夹里最近的文件创建时间数值：",FindAllFile("e:"))

Func FindAllFile($sDir)
        Dim $max
        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)
                        ContinueLoop
                EndIf
                $time = FileGetTime($sDir & "" & $sFile, 1, 1)
                $valve = _DateToDayValue(StringLeft($time, 4), StringMid($time, 5, 2), StringMid($time, 7, 2))
                $max = _Max($valve, $max)
        WEnd
        ; 关闭搜索句柄
        FileClose($hSearch)
        Return $max
EndFunc   ;==>FindAllFile

afan

全盘搜索，对于Au3来说，肯定不是强项，建议使用Dos的 Dir 命令，扫描出结果文档后利用正则及数组比对处理

happytc

想了很多办法尝试找出一个文件中日期最近的文件，但以下这段代码可靠性实在太差，请各位大大帮忙看看如何修 ...
lion.lee 发表于 2011-12-18 22:25

    你所谓的“可靠性实在太差”具体指啥？

怎么个不可靠了？

若是速度问题，你别用递归，用迭代试试，看看效果是不是好点！

不过，象这种线性问题，效率最高的就是多线程。并且这个问题，一点线程之间的干扰都没有。也基本没有线程阻塞，au3提供的多进程函数都太笨重了，连启动都要花些时间。

tsui

版主说的是，我也是这样遍历的。 dir /o d

lion.lee

“可靠性差”是指有的时候能运算出结果，有的时候返回空值。不能保证每次都能得到想要的结果。

lion.lee

多谢各位的指点，现在就去试试dir /od。

Ycxw2008

也是论坛别人帮我的,发给你参考下

#Include <File.au3>
#Include <Array.au3>
$Dir = "C:"
$FileList = _FileListToArray($Dir, "*.log", 1)
$t = 0
$f = 0
For $i = 1 To UBound($FileList)-1
        If Number(FileGetTime($Dir & $FileList[$i], 1,1)) > $t Then
                $t = Number(FileGetTime($Dir & $FileList[$i], 1,1))
                $f = $i
                EndIf
Next
;MsgBox(0,0,$FileList[$f])
ShellExecute($Dir&$FileList[$f])

lion.lee

我准备用这个代码测试一下能不用稳定运行。

#include <file.au3>
#include <date.au3>
_filegetTime("F:\soft")
Func _filegetTime($path)
        RunWait(@ComSpec & " /c " & "dir " & $path & " /tc >" & @ScriptDir & "\dirresult.txt", "", @SW_HIDE)
              ;将dir /od 修改为 dir /tc
        $str = FileRead("dirresult.txt")
        $str = StringReplace($str, " ", "")
        FileDelete("dirresult.txt")
        FileWrite("filetime.txt", $str)
        Dim $array, $string, $timestr, $filename
        _FileReadToArray("filetime.txt", $array)
        FileDelete("filetime.txt")
        For $i = 1 To $array[0]
                If StringInStr($array[$i], "<DIR>") And Not StringInStr($array[$i], ".") Then
                        $string = StringSplit($array[$i], "<DIR>", 1)
                        $timestr = $string[1]
                        $filename = $string[2]
                        $timevalve = _DateToDayValue(StringLeft($timestr, 4), StringMid($timestr, 6, 2), StringMid($timestr, 9, 2))
                        $now = _DateToDayValue(@YEAR, @MON, @MDAY)
                        $tonow = $now - $timevalve
                        If $tonow > 5 Then
                                MsgBox(0, 0, $filename & "可以删除")
                                ;DirRemove($path & "" & $filename, 1)
                                                               ;路径忘记加上了，本次编辑补上
                        EndIf
                EndIf
        Next
EndFunc   ;==>_filegetTime

afan

我准备用这个代码测试一下能不用稳定运行。
lion.lee 发表于 2011-12-20 21:46

    你这个是找多个文件？并非“日期最近的文件”吧，且没有遍历子目录

tsui

dir那个日期好像是文件修改日期，不适用于某些场合

happytc

用这个代码做测试，发现递归还没有完成时，就打印了？
很奇怪，如下面代码，还在递归着呢，就执行到MsgBox语句了

Local $iInit = TimerInit()
FindAllFile("c:")
Local $iTimer = TimerDiff($iInit)

MsgBox(0, "该文件夹用时：", $iTimer)

Func FindAllFile($sDir)
        Dim $max
        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)
                Else
                        ConsoleWrite($sDir & "\" & $sFile & @CRLF)
                EndIf
        WEnd
        ; 关闭搜索句柄
        FileClose($hSearch)
EndFunc   ;==>FindAllFile

turboking

学习。。。。

lnlyf

学习了，谢谢

lion.lee

写这些代码是为了自动删除之前备份的文件，因备份文件夹的目录都是新创建的，所以用dir /tc可以满足我的要求，不需要遍历了。该问题已经解决，多谢前辈们的指点。