15问答网 > 一个文件夹，里面都是txt文档，并且每秒生成一个新的txt文档，请问用VB如何读取最新的txt文档？名字随机

一个文件夹，里面都是txt文档，并且每秒生成一个新的txt文档，请问用VB如何读取最新的txt文档？名字随机

2024-12-10 05:56:46

推荐回答（1个）

回答1：

以下代码可找出e:\tmp文件夹中最新的txt文档：

Private Sub Command1_Click()
Dim d As String, t As Date, s As String
d = Dir("e:\tmp\*.txt")
Do Until d = ""
If FileDateTime("e:\tmp\" & d) > t Then
t = FileDateTime("e:\tmp\" & d)
s = "e:\tmp\" & d
End If
d = Dir
Loop
MsgBox "最新的txt文件是" & s
End Sub