bs.DataSource = From filename As String In IO.Directory.GetFiles("C:\daten") _
                Let fi = New IO.FileInfo(filename) _
                Order By fi.Length _
                Where fi.Extension.ToUpper = ".JPG" _
                Select fi.Name, fi.LastWriteTime, fi.Length, fi.IsReadOnly
 
dgv.DataSource = bs