关于FSO功能

VB6使用FSO搜出有相似特征文件时
若是文件档名后带有数字时间纪录
是否文件档名列表会依序由小自大排列?

Set varFSO = CreateObject("Scripting.FileSystemObject")
Set varFolder = varFSO.GetFolder(FilePath)
               
For Each varFile In varFolder.Files
   TempString = Trim(Mid(varFile, InStrRev(varFile, "\") + 1))
   If ((Right$(UCase$(TempString), 4) = UCase$(".aaa") And InStr(TempString, tmpCode) <> 0)) Then
         ReDim Preserve FileNameArray(i)
         FileNameArray(i) = varFile
         i = i + 1
   End If
Next