Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
  'tutti i primi 3 file di C:\dati\ProveNikon\images
  'con estensione jpg
  'dim dimensione < 4000000000 byte
  'ordinati per data creazione discendente

  Dim di As New DirectoryInfo("C:\dati\ProveNikon\images")
  Dim result = (From fi In di.GetFiles("*.jpg") _
         Where fi.Length < 4000000000 _
         Order By fi.CreationTime Descending _
         Select New With {.Name = fi.Name, .FullName = fi.FullName, .LogicName = "/ProveNikon/images/" & fi.Name, .CreationTime = fi.CreationTime}).Take(3)

  Dim g As ListView = Me.ListView1
  g.DataSource = result

  g.DataBind()

End Sub