AU3中按时间排序杯举文件列表[秒开]

#include <Array.au3>
#include <File.au3>
#include <MsgBoxConstants.au3>

;测试  JY_FileListSort("c:\windows\system32") 

;JY_FileListSort("路径"[,"顺序= 0,升序 / 1,降序(默认)"])
;成功:
;    返回数组[路径][日期]
;失败:
;    返回 空值
;    @error = 0
;    @extended = 1 ;路径无效
;    @extended = 4 ;未发现文件
;by:绿色风 QQ/email:79664738
;blog: www.JianYiIT.com Date:20141209
Func JY_FileListSort($dir,$sort = 1)
    ; 有其它需求可以改这里的参数 1
    Local $aFileList = _FileListToArray($dir, Default, 1, True) ;获取目录下面的 文件列表(非目录)
    If @error Then Return SetError(0, @error, "")
    Local $arr[UBound($aFileList)][2] ;建立临时数组
    For $i = 0 To UBound($aFileList) - 1
        ;有其它需求可改这里的参数 1 1
        Local $lArr = FileGetTime($aFileList[$i], 1, 1) ;0 文件夹与文件 1 文件 2 文件夹
        $arr[$i][1] = $lArr
        $arr[$i][0] = $aFileList[$i]
    Next
    _ArraySort($arr,$sort,0,0,1) ;对数组排序 $sort = 0,升序 / 1,降序(默认)
;~     _ArrayDisplay($arr, "文件清单 测试")
    Return $arr
EndFunc   ;==>JY_FileListSort

本文固定链接: http://jianyiit.com/post-45.html