订购列表中的文件

Question

我想列出一个文件夹中的所有文件，但是顺序不正确。我有file1，file2到file15。不幸的是，file10将在file2之前列出。我对文件名没有影响，但是我必须对它们进行排序，例如file1，file2 ... file9，file10等。

Expression<Func<Project, string>>

结果未更改。如何对文件列表进行排序？

Answer 1

我现在使用"00"格式重命名每个文件，如下所示：

' rename files
currentName = Dir(uo.Path & "\*.txt")
Do While Len(currentName) > 0
    desiredName = "file" & Format(Replace(Split(currentName, "file")(1), ".txt", ""), "00") & ".txt"
        If (currentName <> desiredName) Then
            Name uo.Path & "\" & currentName As uo.Path & "\" & desiredName
        End If
    currentName = Dir
Loop

这只是一种解决方法，但效果很好。