我想找出文件夹（QW）中的含ZP开头的最新文件，怎么写？
我想找出文件夹（QW）中的含ZP开头的最新文件，怎么写？
ZP071108.doc
ZP071107.doc
ZP072208.doc
ZP072308.doc
XP072408.doc
ZP070108.doc
通过查找后得到的最新文件名为ZP072308.doc
[解决办法]
看上去你的文件是按日期命名的，那可以这样：
Private Sub Command1_Click()
Dim s As String, sLast As String
s = Dir( "d:\QW\ZP*.doc ")
sLast = s
Do While s <> " "
s = Dir
If s > sLast Then
sLast = s
End If
Loop
Debug.Print sLast
End Sub
如果楼主是要按文件修改时间查找最后的文件，就要在循环体里面调用FileDateTime函数了
