如何在VB6中的文件夹中获取最近更新的文件
我正在使用一些遗留的VB6代码,我对它感到很糟糕。下面的代码“认为”它通过使用文件名来获取最新的文件。但这种方法不再有效,因为它使用数字0-9来确定这一点。它认为6比2新,而2是今年的数字。例如需要排序的文件的格式如下所示如何在VB6中的文件夹中获取最近更新的文件,vb6,Vb6,我正在使用一些遗留的VB6代码,我对它感到很糟糕。下面的代码“认为”它通过使用文件名来获取最新的文件。但这种方法不再有效,因为它使用数字0-9来确定这一点。它认为6比2新,而2是今年的数字。例如需要排序的文件的格式如下所示 FORMZZ6.eln is a 2006 file FORMZZ2.eln is a 2012 file 下面的代码按字母顺序排序。是否可以选择上次修改日期的文件 Private Function ResolveFormVersion(sForm As String) A
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
谢谢是的,您应该能够重写循环以使用FileDateTime函数:
是,您应该能够重写循环以使用FileDateTime函数: