从目录中按字母顺序排列的最后一个文件获取文件名

Question

我正在尝试从文件夹中获取最后一个文件的文件名。我想如果我计算文件夹中的文件数量并简单地调用与文件关联的数量，它会很快解决问题，但显然不是。这是我用来计数的：

Dim path As String, counter As Integer

path = "D:\test\*.docm"

FileName = Dir(path)

Do While FileName <> ""
    count = counter + 1
    FileName = Dir()
Loop

msgbox counter

因此，例如，如果计数的最后一个文件是 5，我如何获取它的文件名？或者总体上有更好的方法吗？

Answer 1

Do 
    FileName = Dir()
    If Filename = "" then
        Exit Do
    Else
        RealFilename = Filename
    End If
Loop