怎么运行不起来呢？

Private Sub Command1_Click()
Dim fil As File
Set fil = fso.GetFile(App.Path & "\1.txt")

Open App.Path & "time.txt" For Output As #1
Print #1, fil.DateLastModified
Close #1

End Sub

什么错?...哪行错?.

第二行：Set fil = fso.GetFile("D:\1.txt")

实时错误'424'
要求对象

[此贴子已经被作者于2006-12-14 21:35:31编辑过]

D下面有没有1.txt文件?

有的

我看到的都是path+………………
没见到过用&的
这是第一次（不要笑我菜）

Dim fso As New FileSystemObject
Dim file1 As File
Set file1 = fso.GetFile("D:\ccc.txt")

我在这里没问题...请问你引用了fso了吗?.

各位 我知道出现问题的所在了

少了一句“Dim fso As New FileSystemObject”

完整的代码如下：

Private Sub Command1_Click()
Dim fil As File
Dim fso As New FileSystemObject

Set fil = fso.GetFile(App.Path & "\1.txt")

Open App.Path & "time.txt" For Output As #1
Print #1, fil.DateLastModified
Close #1

End Sub

谢谢 我也自己查出来了


anyway，thank you all the same。