Dim sortedFiles = From file In files Let fileInfo As New FileInfo(file) Order By fileInfo.LastWriteTime Descending Select file