Question

我试图运行这行代码:

Dim OrderedFiles() As String = Directory.GetFiles(FilePath).OrderBy(x >= x.CreationTime)

在 x 上我有一个错误, 说 x 没有声明。

我的项目设置为“选择严格关闭 ” 和“选择推断 ” 。如果我选择了“选择严格 ”, 那么我就会从项目中发现数千个错误(这是继承的), 我没有时间来修正所有错误, 但是x不再给我一个错误。直到我想把电脑扔出窗外之前,我一直在谷歌搜索。

如能帮助纠正这一说法,将不胜感激。

编辑 :

我本来希望有一个更优雅的解决方案, 但这就是我为了解决这个特殊的问题而提出的。

    Dim fileList() As String = Directory.GetFiles(FilePath)
    Dim fileDate(fileList.Length - 1) As DateTime

    For i As Integer = 0 To fileList.Length - 1
        fileDate(i) = New FileInfo(fileList(i)).CreationTime
    Next

    Array.Sort(fileDate, fileList)

    With EmailTemplates_DropDownList
        .DataSource = fileList.Reverse.Take(5)
        .DataBind()
    End With

它并不特别优雅,但它能完成这项工作。我本来希望有一个LINQ线条解决方案,而我只是没有LINQ的背景来知道如何做这份工作,有时间去买一本书。

Answer 1

我不知道你从哪里得到这个语法的:

OrderBy(x >= x.CreationTime)

几乎看起来像 C# 语法的语法

OrderBy(x => x.CreationTime)

但我相信你会用VB

OrderBy(Function(x) x.CreationTime)

这当然是"中的例子 http://msdn.microsoft.com/en-us/library/bb534966.aspx#Y1036" rel = "nofollow"\\ code>Enumberable.OrderBy 将会建议。

到了那时,你会发现一个不同的错误,正如史蒂夫的文章所写的那样, 但他没有纠正语法。

Dim OrderedFiles() As FileInfo = new DirectoryInfo(FilePath).GetFiles(). 
                                        OrderBy(Function(x) x.CreationTime).
                                        ToArray()

Answer 2

Directory.GetFiles() returns the names of files (including their paths) in the specified directory. It s not possible to use x.CreationTime, x is a string

您也许应该使用目录Info

Dim di as DirectoryInfo = new DirectoryInfo(FilePath)
Dim OrderedFiles = di.GetFiles().OrderBy(Function(x) x.CreationTime).Take(3)
Dim fi as FileInfo
For each fi in OrderedFiles
    Console.WriteLine(fi.FullName)
Next

友情链接