文件夹中文件按时间排序解决办法

文件夹中文件按时间排序
我想对指定文件夹下的.txt文件按时间进行排序，并读取最后更新的那个文件,在网上找了下面代码，但总是有下划线提示错误（红字部分），搞了一晚上还是不知道问题，特来求助

原文地址：http://blog.csdn.net/xue1234567890/article/details/4457363


Imports System.IO  

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
         Dim lujing As DirectoryInfo = New DirectoryInfo("D:/软件/新建文件夹")
        Dim list As FileInfo() = lujing.GetFiles()

        Array.Sort(Of FileInfo)(list, New FileLastTimeComparer()) '排序

        TextBox1.Text = list(list.Length - 1).FullName  '文件的全路径以及名字
        TextBox2.Text = list(list.Length - 1).Name      '文件的名字
    End Sub
End Class


'文件中按时间排序最新的文件读取
Public Class FileLastTimeComparer
    Implements IComparer(Of FileInfo)

    Public Function CompareFile(ByVal x As System.IO.FileInfo, ByVal y As System.IO.FileInfo) As Integer Implements System.Collections.Generic.IComparer(Of System.IO.FileInfo).Compare       
         Return x.LastWriteTime.CompareTo(y.LastWriteTime)
    End Function
End Class


------解决方案--------------------
var sortedFiles = new DirectoryInfo(@"D:\samples").GetFiles()
                                                  .OrderBy(f => f.LastWriteTime)
                                                  .ToList();
------解决方案--------------------
         
  var f = (from q in new DirectoryInfo(@"目录").GetFiles()
                     orderby q.LastAccessTime descending
                     select q).FirstOrDefault();
------解决方案--------------------
Dim sortedFiles = New DirectoryInfo("D:\samples").GetFiles()
                                                   .OrderBy(function(f) f.LastWriteTime)
                                                   .ToList()