261869247 发表于 2010-8-13 21:25:01

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

本帖最后由 261869247 于 2010-8-14 17:02 编辑

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


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


精确到秒$t =FileGetTime("1.jpg", 1)

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

261869247 发表于 2010-8-13 21:50:26

本帖最后由 261869247 于 2010-8-13 22:10 编辑

更新下了代码能搜索到所有格式的图片 把图片时间的数字组合在一起 但不知道如何判断那张是最新的图片$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 & $t & $t & $t & $t & $t
        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 发表于 2010-8-13 22:17:24

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

afan 发表于 2010-8-13 22:33:55

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

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

$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 & $t & $t & $t & $t & $t
                ;MsgBox(0, $file & " 这张图片创建日期:", $yyyymd)
                If $yyyymd > $sF Then
                        $sF = $yyyymd
                        $sFile = $file
                EndIf
        EndIf
WEnd
FileClose($search)
MsgBox(0, '创建时间最近的bmp文件', $sFile)
;FileDelete($sFile) ;删除

261869247 发表于 2010-8-13 23:08:02

哈哈 谢谢afan 斑竹

261869247 发表于 2010-8-14 17:02:25


afan 发表于 2010-8-13 22:56 http://www.autoitx.com/images/common/back.gif


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

261869247 发表于 2010-8-17 02:28:29


afan 发表于 2010-8-13 22:56 http://www.autoitx.com/images/common/back.gif


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

afan 发表于 2010-8-17 02:29:52

回复 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 & $t & $t & $t & $t & $t
                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 发表于 2010-8-17 02:32:00

回复261869247
afan 发表于 2010-8-17 02:29 http://www.autoitx.com/images/common/back.gif


    非常感谢了 以后我不乱发帖子了
页: [1]
查看完整版本: 【已解决】怎么求助如何搜索并读取指定目录下的所有BMP图片并找出最新的那张