0

私はいくつかのレガシー VB6 コードを使用していますが、それはひどいものです。以下のコードは、ファイルの名前を使用して最新のファイルを取得していると「考えています」。しかし、この方法は 0 ～ 9 の数字を使用してこれを判断するため、もはや機能しません。そして、6 は 2 よりも新しいと見なされます。その数字は年です。例えば。並べ替えが必要なファイルは、このようにフォーマットされています。

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

以下のコードはアルファベット順に並べ替えます。最終更新日が nas になっているファイルを選択することはできますか?

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 に答える