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

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