想做一个遍历文件夹目录后将读取出来的文件名和修改日期输出到一个记事本里，可是无论我使用For语句还是Do语句都会弹出“文件未找到”的提示，问题出现在使用“FileDateTime”函数转换文件日期的自定义变量上。不过虽然每次都提示文件未找到，但是有时候会向目标记事本输出成功。这究竟是怎么回事？
图一：
图二：

　　代码在下面，谁复制一下帮忙研究研究，本人已江郎才尽。
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