关于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