0

我正在使用一些遗留的 VB6 代码，我对此感到很害怕。下面的代码“认为”它通过使用文件名来获取最新的文件。但是这种方法不再有效，因为它使用数字 0 - 9 来确定这一点。它认为 6 比 2 新，其中那个数字是年份。例如。需要排序的文件格式如下。

FORMZZ6.eln is a 2006 file
FORMZZ2.eln is a 2012 file

下面的代码按字母顺序排序。是否可以选择上次修改日期的文件？

Private Function ResolveFormVersion(sForm As String) As String
Dim sFile  As String
Dim sFile2 As String

sFile = Dir(BaseDirectory & sForm, vbNormal)

Do
    sFile2 = Dir
    If sFile2 > sFile Then sFile = sFile2 
Loop Until sFile2 = "" 

ResolveFormVersion = sFile

End Function

谢谢

4

1 回答 1

3

是的，您应该能够重写循环以使用 FileDateTime 函数：

http://msdn.microsoft.com/en-us/library/aa262740%28VS.60%29.aspx

于 2012-11-09T18:54:56.150 回答