【已解决】怎么求助如何搜索并读取指定目录下的所有BMP图片并找出最新的那张

261869247

求助如何搜索并读取指定目录下的所有BMP格式的图片
然后使用函数FileGetTime并找出最新的那张图片 然后删除


比如文件夹123 目录下面有很多不同创建时间的BMP格式图片
怎么找出最新的那张并删除


精确到秒

$t =  FileGetTime("1.jpg", 1)

If Not @error Then
        $yyyymd = $t[0] & "年/" & $t[1] & "月/" & $t[2] &"日/" &$t[3] &"小时/" &$t[4]&"分/" &$t[5] & "秒"
        MsgBox(0, "这张图片创建日期:", $yyyymd)
EndIf

261869247

更新下了代码  能搜索到所有格式的图片 把图片时间的数字组合在一起 但不知道如何判断那张是最新的图片

$search = FileFindFirstFile("*.jpg")

While 1

$file = FileFindNextFile($search)

If @error Then ExitLoop

MsgBox(4096, "文件:", $file)

$t =  FileGetTime($file, 1)

If Not @error Then
        $yyyymd = $t[0] & $t[1] & $t[2] & $t[3] & $t[4] & $t[5]
        MsgBox(0, "这张图片创建日期:", $yyyymd)
EndIf

WEnd

FileClose($search)

怎么用这个函数判断那张图片的数是最大的 并且删除这张数字最大=时间最新的图片

#include <Array.au3>
Local $avArray = StringSplit("4,2,06,8,12,5", ",")
MsgBox(0,'最大数学值', _ArrayMax($avArray, 1, 1))

261869247

大家帮我看看 做到这一步 不知道如何往下走啦

afan

做到这一步不错了 ^ …… ^  貌似 jpg 要改成 bmp 吧

afan

$search = FileFindFirstFile("*.bmp")
Local $sF, $sFile
While 1
        $file = FileFindNextFile($search)
        If @error Then ExitLoop
        $t = FileGetTime($file, 1)
        If Not @error Then
                $yyyymd = $t[0] & $t[1] & $t[2] & $t[3] & $t[4] & $t[5]
                ;MsgBox(0, $file & " 这张图片创建日期:", $yyyymd)
                If $yyyymd > $sF Then
                        $sF = $yyyymd
                        $sFile = $file
                EndIf
        EndIf
WEnd
FileClose($search)
MsgBox(0, '创建时间最近的bmp文件', $sFile)
;FileDelete($sFile) ;删除

261869247

哈哈 谢谢afan 斑竹

261869247

afan 发表于 2010-8-13 22:56

    昨天忘记加已解决了 今天来补上！

261869247

afan 发表于 2010-8-13 22:56

    AFAN 斑竹 相反 找出时间最旧的图片怎么判断

afan

回复 8# 261869247

$search = FileFindFirstFile("*.ini")
Local $sF, $sFile
While 1
        $file = FileFindNextFile($search)
        If @error Then ExitLoop
        $t = FileGetTime($file, 1)
        If Not @error Then
                $yyyymd = $t[0] & $t[1] & $t[2] & $t[3] & $t[4] & $t[5]
                MsgBox(0, $file & " 这个文件创建日期是:", $yyyymd)
                If Not $sF Or $yyyymd < $sF Then
                        $sF = $yyyymd
                        $sFile = $file
                EndIf
        EndIf
WEnd
FileClose($search)
MsgBox(0, '创建时间最旧的INI文件', $sFile)

261869247

回复  261869247
afan 发表于 2010-8-17 02:29

    非常感谢了 以后我不乱发帖子了