如何遍历指定目录下的所有文件之后找出大于5MB的文件

razc

$search = FileFindFirstFile("c:\11\*.*")  

While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
WEnd
FileClose($search)

比如c:\11 里面有   10个文件     其中某个文件大小是高于5MB的,其他都是小于5MB

如何把高于5MB 的给找出来，再把低于5MB的也找出来,以为我要对大于5MB文件进行一种处理,小于5MB的进行另外一种处理！

shqf

用FileGetSize()获得文件大小，单位KB，再除以1024即为MB。

razc

回复 2# shqf

能不能把这个大于5MB的文件名给获取到？     FileGetSize   只能返回文件大小啊~

f4李文杨

FindAllFile("F:\F4")

Func FindAllFile($sDir) ;删除桌面图标
        Local $hSearch = FileFindFirstFile($sDir & "\*.*")
        ; 检查搜索是否成功
        If $hSearch = -1 Then Return
        While 1
                Local $sFile = FileFindNextFile($hSearch)
                If @error Then ExitLoop
                If int(FileGetSize($sDir & "\" & $sFile) / 1024 / 1024) >= 50 Then
                        MsgBox(0, $sFile, "大或等50M")
                Else
                        MsgBox(0, $sFile, "小50M")
                EndIf
        WEnd
        FileClose($hSearch)
EndFunc

这样的效果看有没有达到你的效果！！
上面的遍历 先前都有人搞过了！应该不难的朋友！！

razc

回复 4# f4李文杨


    热泪盈眶 谢谢啊~

zxhou1

学习了，好牛

zxhou1

学习了，厉害