Dim sFile As String
Dim vDate As Variant
Dim nIndex As Integer
Dim sPath As String
 
sPath = "c:\temp\"
For i = 0 To List1.ListCount
  sFile = sPath & List1.List(i)
  If FileDateTime(sPath & sFile) > vDate Then
    vDate = FileDateTime(sPath & sFile) 
    nIndex = i
  End If
Next i
 
MsgBox "Neueste Datei: " & List1.List(nIndex)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de