实时错误 '53' : 文件未找到。

　　代码在下面，谁复制一下帮忙研究研究，本人已江郎才尽。
Private Sub Form_Load()
Dim X As String
Dim Y As String
Dim Z As String
X = "D:\"
Y = "E:\Test.txt"
Open Y For Append As #1
X = Dir(X)
Do While Len(X) > 0
Z = Format(FileDateTime(X), "yyyy-mm-dd hh:nn:ss")
Print #1, X & " 最后修改日期: " & Z
X = Dir()
Loop
Close #1
End Sub

　　问题已解决，把“FileDateTime(X)”改成了“FileDateTime("D:\" & X)”就OK了！原因是“FileDateTime”函数需要路径的支持。

　　把代码重新修改了一遍，虽然有点儿笨，但是效果达到了。
Private Sub Form_Load()
Dim A As String
Dim X As String
Dim Y As String
Dim Z As String
A = "D:\"
X = "E:\Test.txt"
Y = "D:\"
Open X For Append As #1
Y = Dir(Y)
Do While Len(Y) > 0
Z = Format(FileDateTime(A & Y), "yyyy-mm-dd hh:nn:ss")
Print #1, A & Y & " 最后修改日期: " & Z
Y = Dir()
Loop
Close #1
End Sub