VB如何取得目录下最近的文件名?

Question

就想取得程序目录下日期最晚的xls文件名，也就是最近生成的xls文件，求代码

Answer 1

Private Sub Command1_Click()
Dim d As String, t As Date, s As String
d = Dir(App.Path & "\*.txt")
Do Until d = ""
If FileDateTime(App.Path & "\" & d) > t Then
t = FileDateTime(App.Path & "\" & d)
s = App.Path & "\" & d
End If
d = Dir
Loop
MsgBox "最新的txt文件是" & s
End Sub
这是个找TXT的，你自己改改，原创代码