Function FindNewDriverFile(FileToFind As String, PathForSearch As String) As String
    Dim SearchPath As String, findstr As String
    Dim NumFiles As Integer, NumDirs As Integer
    Dim NumFiles1 As Integer, NumDirs1 As Integer
    Dim i As Integer
    Dim tempDate As String, tempPath As String
        Screen.MousePointer = vbHourglass
        List1.Clear
        FindFilesAPIMy PathForSearch, FileToFind, NumFiles, NumDirs
        FindFilesAPIinCAB PathForSearch, FileToFind, NumFiles1, NumDirs1
        AddLog "  " & NumFiles + NumFiles1 & " Files found"
        Screen.MousePointer = vbDefault
        'поиск самого нового файла
        tempDate =  0 
        tempPath = ""
        If List1.ListCount >  0  Then
            For i =  0  To List1.ListCount -  1 
                If (CDate(FindFieldValue(List1.List(i), "DateTime")) > CDate(tempDate)) Then
                    tempDate = FindFieldValue(List1.List(i), "DateTime")
                    tempPath = FindFieldValue(List1.List(i), "Path")
                End If
            Next i
        End If
        If Len(tempPath) >  0  Then
            AddLog "  " & FileToFind & " found in " & tempPath
        End If
        List1.Clear
        FindNewDriverFile = tempPath
End Function
Function FindFieldValue(str As String, field As String) As String
    Dim temp As String
    If InStr(str, field & "=") >  0  Then
        temp = Right(str, Len(str) - InStr(str, field & "=") - Len(field))
        If InStr(temp, ";") >  0  Then
            temp = Left(temp, InStr(temp, ";") -  1 )
            FindFieldValue = temp
        End If
    Else
        FindFieldValue = ""
    End If
End Function

'В первом случае
FileName=unidrv.dll;Path=C:\WINDOWS\DriverCache\i386\sp2.cab;DateTime= 17 . 02 . 2007   04 : 07 : 18 ;
   1  Files found
'во втором
 FileName=unidrv.dll;Path=C:\WINDOWS\Driver Cache\i386\sp2.cab;DateTime= 04 . 08 . 2004   00 : 54 : 44 ;
 FileName=unidrv.dll;Path=C:\WINDOWS\Driver Cache\i386\sp3.cab;DateTime= 14 . 04 . 2008   04 : 33 : 48 ;
   2  Files found

FindFileInCab = "FileName=" & FileInfo.FileName & ";Path=" & Archive & ";DateTime=" & Format(FileInfo.DateTime, "dd.mm.yyyy hh:mm:ss") & ";"

FindFileInCab = "FileName=" & FileInfo.FileName & ";Path=" & Archive & ";DateTime=" & FileInfo.DateTime & ";"
...
Dim WFD As WIN32_FIND_DATA
Form1.List1.AddItem "FileName=" & FileName & ";Path=" & Path & ";DateTime=" & fFileTimeToVBATime(WFD.ftLastWriteTime) & ";"

Public FileInfo As FindFileInfo
Public Type FindFileInfo
    FileName As String
    DateTime As Date
    Size As Variant
    Path As String
End Type
Public Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String *  14 
End Type
Public Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type

Public Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type


Public Function fFileTimeToVBATime(ftFileTime As FILETIME, _
 Optional fLocal As Boolean = True) As Date

Dim stSystem        As SYSTEMTIME
Dim ftLocalFileTime As FILETIME
    '
    ' Converts Windows FILETIME date/time value to VBA.
    '
    ' If the user wants local time, convert the file
    ' time to local file time.
    '
    If fLocal Then
        Call FileTimeToLocalFileTime(ftFileTime, ftLocalFileTime)
        ftFileTime = ftLocalFileTime
    End If
    '
    ' Convert the file time to system time then
    ' call our own function to convert to VBA time
    '
    If CBool(FileTimeToSystemTime(ftFileTime, stSystem)) Then
        fFileTimeToVBATime = fSysTimeToVBATime(stSystem)
    End If
End Function
Private Function fSysTimeToVBATime(stSysTime As SYSTEMTIME) As Date
    '
    ' Converts Windows SYSTEMTIME to VBA date/time.
    '
    ' Consrtuct a VBA date/time value using the
    ' DateSerial and TimeSerial functions.
    '
    With stSysTime
        fSysTimeToVBATime = DateSerial(.wYear, .wMonth, .wDay) + _
                        TimeSerial(.wHour, .wMinute, .wSecond)
    End With
End Function