VB高手来帮帮我啊~

Question

Dim begintime
Dim endtime
Private Sub Form_Load()
'Me.Hide
begintime = Now
End Sub
Private Sub Form_unload(Cancel As Integer)
endtime = Now
Dim filename
filename = App.Path & "\Sysanjian.ini"
Open filename For Output As #1
Print #1, Text1.Text
Print #1, "开机时间" & begintime
Print #1, "关机时间" & endtime
Close #1
End Sub以上是我的程序代码，用以记录系统开关机时间，为什么生成的文件中记录不上啊，程序该怎么修改？
大虾们帮帮忙吧，感激涕零！！！

Answer 1

我运行了没有问题啊
你把
filename = App.Path & "\Sysanjian.ini"
改成
filename = "C:\Sysanjian.ini"试试看
是不是记录下来了，你没有找到文件啊不过楼主这个只能记录一次的时间，每次记录新的数据时，将会覆盖旧文件
如果要追加记录
将
Open filename For Output As #1
改成
Open filename For Append As #1

Answer 2

按照楼上所说，应该就是你的工程在建硬盘根目录下，于是App.Path 就得到了"D:\",然后你又filename = App.Path & "\Sysanjian.ini" 得到"D:\\Sysanjian.ini",所以路径就错了。
你可以跟踪下filename 的变量值试下