VBA - 文件对话框与获取目录中的最新文件

Question

我目前提供了一个文件对话框，允许用户从预定义的目录中选择所需的文件。 按预期工作;我只是想减少步骤/互动。

这些文件是简单的带时间戳的日志文件，许多文件在目录中。 我不知道实际的文件名，但我知道所需的文件将始终是该目录中的最新文件。

有没有办法从已知目录中选择具有最新日期/时间的文件的文件名？

• 谢谢！

Answer 1

我在这里找到了一个好方法：

在文件夹中查找最新文件并将其打开(VBA 访问(

Function NewestFile()
Dim FileName As String
Dim MostRecentFile As String
Dim MostRecentDate As Date
Dim FileSpec As String
'Specify the file type, if any
 FileSpec = "*.*" 
'specify the directory
 Directory = "C:"
FileName = Dir(Directory & FileSpec)
If FileName <> "" Then
    MostRecentFile = FileName
    MostRecentDate = FileDateTime(Directory & FileName)
   Do While FileName <> ""
        If FileDateTime(Directory & FileName) > MostRecentDate Then
             MostRecentFile = FileName
             MostRecentDate = FileDateTime(Directory & FileName)
         End If
         FileName = Dir
    Loop
 End If
 NewestFile = MostRecentFile
 End Function

'一些小的调整以满足我的需求;按预期工作。