#Include <File.au3>
#Include <Array.au3>
$FileList=_FileListToArray(@DesktopDir)
If @Error=1 Then
MsgBox (0,"","No Folders Found.")
Exit
EndIf
If @Error=4 Then
MsgBox (0,"","No Files Found.")
Exit
EndIf
_ArrayDisplay($FileList,"$FileList")
Dim $FileListB[$FileList[0]+1][2]
$FileListB[0][0] = $FileList[0]
For $i = 1 To $FileList[0] Step +1
$FileListB[$i][0] = $FileList[$i]
$FileListB[$i][1] = FileGetTime(@DesktopDir & '\' & $FileList[$i], 0, 1)
Next
_ArraySort($FileListB, 0, 1, $FileListB[0][0], 1)
_ArrayDisplay($FileListB,"$FileList")