0
我正在处理一些传统的VB6代码,我对此感到厌烦。下面的代码“认为”它使用文件的名称获取最近的文件。但是这种方法不再有效,因为它使用数字0-9来确定它。它认为6比2更新,这个数字是年份。例如。需要排序的文件格式如下。如何获取VB6文件夹中最近过期的文件
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
感谢
,将工作。谢谢。 – JimDel