用DOS命令,可以控制排序方式
dir:="d:\abc"
RunWait, %comspec% /c dir %dir% /O:N /B>>"C:\My File.txt", , Hide
Run C:\My File.txt
dir:="D:\KuGou"
objFolder := ComObjCreate("Shell.Application").NameSpace(dir)
Files:=[]
i:=0
for item in objFolder.items
{
i+=1
if Not item.isFolder
Files[i]:=item.name
}
MsgBox % Files[i]
AHK自带方式
dir:="D:\KuGou"
FileList:=""
FileCount:=0
Loop, %dir%\*.*
{
FileList.= A_LoopFileName . "`n"
FileCount+=1
}
StringTrimRight, FileList, FileList, 1
Files:=StrSplit(FileList,"`n")
lastfile:=Files[FileCount]
MsgBox %lastfile%