Dim dinfo As New IO.DirectoryInfo("C:\Windows")
 
   Me.ListBox1.DataSource = (From file As IO.FileInfo In dinfo.GetFiles() _
                             Where file.LastWriteTime >= Date.Now.AddDays(-7) _
                             Order By file.LastWriteTime Descending _
                             Take 1).ToList
 
   Me.ListBox1.DisplayMember = "Name"

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control