[RESOLVED] Find newest file in Listbox

[rdcody]

Hey All,

I'm using FindFilesAPI to search a drive for a specific file, and add the results
to a Listbox. If there are more than one copy of the same file, I need to
find the newest one, and it to a textbox.

The results in List1 are...

c:\Temp7\TEST0000.INI - 3/13/06 11:04:52 AM
c:\Temp8\TEST0000.INI - 4/07/05 3:32:52 PM
c:\Temp9\TEST0000.INI - 6/20/06 9:57:52 AM


How do I loop through the listbox and find the newest file?

Thanks in advance,
Ron

I'm using VB5

[Static]

Dim tmp() As String
    Dim Newest As Date
    For x = 0 To List1.ListCount - 1
        tmp = Split(List1.List(x), " - ")
        If Newest < CDate(tmp(1)) Then
            Newest = CDate(tmp(1))
        End If
    Next
    MsgBox Newest

[rdcody]

Hey Static...I get an error..."Can't assign to array".

(tmp =) is highlighted.

I'm using VB5 which doesn't support the split function.... any other ideas?

[Static]

oooo
use this code
then change Split to Split2

'Credit goes to Manavo11 ;)
Private Function Split2(ByVal sString As String, ByVal sSeparator As String) As Variant
    Dim sParts() As String
    Dim lParts As Long
    Dim lPos As Long
        lPos = InStr(sString, sSeparator)
    While lPos
        ReDim Preserve sParts(lParts)
        sParts(lParts) = Left(sString, lPos - 1)
        sString = Mid(sString, lPos + Len(sSeparator))
        lPos = InStr(sString, sSeparator)
        lParts = lParts + 1
    Wend
    If Len(sString) Then
        ReDim Preserve sParts(lParts)
        sParts(lParts) = sString
        lParts = lParts + 1
    End If
    Split2 = IIf(lParts, sParts, Array())
End Function

[rdcody]

I get the same error

[Static]

??? works for me?

Private Sub WHATEVER()
    Dim tmp() As String
    Dim Newest As Date
    For x = 0 To List1.ListCount - 1
        tmp = [B]Split2[/B](List1.List(x), " - ")
        If Newest < CDate(tmp(1)) Then
            Newest = CDate(tmp(1))
        End If
    Next
    GetNewest = Newest
End Sub
 
'Credit goes to Manavo11
Private Function Split2(ByVal sString As String, ByVal sSeparator As String) As Variant
    Dim sParts() As String
    Dim lParts As Long
    Dim lPos As Long
        lPos = InStr(sString, sSeparator)
    While lPos
        ReDim Preserve sParts(lParts)
        sParts(lParts) = Left(sString, lPos - 1)
        sString = Mid(sString, lPos + Len(sSeparator))
        lPos = InStr(sString, sSeparator)
        lParts = lParts + 1
    Wend
    If Len(sString) Then
        ReDim Preserve sParts(lParts)
        sParts(lParts) = sString
        lParts = lParts + 1
    End If
    Split2 = IIf(lParts, sParts, Array())
End Function

[rdcody]

no.....i won't work in VB5

[Static]

... yes it will

the Split2 Function uses nothing that VB5 doesnt have.

it was written for people with VB5 so they can have the ease of a split function!?

[MartinLiss]

Here is a version of Split for VB5.

[Static]

hmm.. never seen that version marty.. looks nice gotta put that one in my codebank.

but, am I wrong though? the Split2 function should work fine correct?

[rdcody]

I still get this error..."Can't assign to array".

(tmp =) is highlighted.

[MartinLiss]

It does work in VB6 but I don't know about VB5 which may be different in the way it handles arrays.

[Hack]

I still get this error..."Can't assign to array".

(tmp =) is highlighted.

Are you doing anything in your code other than what has been previously posted?

I ask, because what Static posted works for me.

[Static]

what if u change
DIm tmp() as string
to
Dim tmp() as Variant
??

[rdcody]

no.....just copied and pasted the code as is.

[rdcody]

same error

[Static]

use this then:

Private Function GetNewest() As Date
    Dim Newest As Date
    Dim iLoc As Integer
    Dim tmp As String
    For x = 0 To List1.ListCount - 1
 
        iLoc = InStr(List1.List(x), " - ") + 3
        tmp = Mid(List1.List(x), iLoc, Len(List1.List(x)) - iLoc)
        If Newest < CDate(tmp) Then
            Newest = CDate(tmp)
        End If
    Next
    GetNewest = Newest
End Function
 
Private Sub Form_Load()
 
MsgBox GetNewest
 
End Sub

[rdcody]

Yessss.....that works great Static ...thanks..... :-)


Now I need to path of the file in a textbox...

Text4.Text = "c:\Temp9\TEST0000.INI"

[rdcody]

This seems to work to get the path.....

Dim MyPath As String
 
Private Function GetNewest() As Date
    Dim Newest As Date
    Dim iLoc As Integer
    Dim tmp As String
    For x = 0 To List1.ListCount - 1
 
        iLoc = InStr(List1.List(x), " - ") + 3
        
        tmp = Mid(List1.List(x), iLoc, Len(List1.List(x)) - iLoc)
        If Newest < CDate(tmp) Then
           Newest = CDate(tmp)
           MyPath = Left$(List1.List(x), InStr(1, List1.List(x), " - ") - 1)
        End If
    Next
    GetNewest = Newest
End Function
 
Private Sub Command4_Click()
    MsgBox GetNewest
    Text4.Text = MyPath
End Sub

Does this work for you guys?

[Static]

well.. do u need to display the date? or only just pust the path in the textbox of the most recent file?

if just the path:

Private Function GetNewest() As String
    Dim Newest As Date
    Dim iLoc As Integer
    Dim tmp As String
    Dim sPath As sting
    For x = 0 To List1.ListCount - 1
 
        iLoc = InStr(List1.List(x), " - ") + 3
        
        tmp = Mid(List1.List(x), iLoc, Len(List1.List(x)) - iLoc)
        If Newest < CDate(tmp) Then
           Newest = CDate(tmp)
           sPath = Left$(List1.List(x), InStr(1, List1.List(x), " - ") - 1)
        End If
    Next
    GetNewest = sPath
End Function
 
Private Sub Command4_Click()
    Text4.Text = GetNewest
End Sub

[rdcody]

That will do it!

Thanks alot Static, I appreciate your help.