Question

VB中怎么把时间日期还有文字写到指定TXT文件里

Private Sub Form_Load()
Text1.Text = Time '显示时间

Open "E:\1.txt" For Append As #1
Print #1, Format(Now, "yyyy-mm-dd");
Print #1, Text1
Print #1,哈哈哈
Close #1
End Sub

我是新手，请高手教一下
我想要的效果是在txt文件里显示如下：
2012-6-18 17:30:11 哈哈哈

2012-6-18 17:31:12 哈哈哈

。。。
一直往下写，还附有一行空格。对了，那个时间能不能不用那个TEXT1的方式啊？直接写入。

谢谢了
为什么我写的不能同一行呢

Answer 1

Private Sub Form_Load()
Open "E:\1.txt" For Append As #1
Print #1, Now & Space(1) & "哈哈哈" & vbCrLf
Close #1
End Sub
now 函数结果包括日期和时间的 所以不需要text1

追问

谢谢，成功了！能在问你个问题吗？我加一个command1然后点击后重新运行运行一次怎么做呢？

追答

Private Sub command1_click()
Open "E:\1.txt" For Append As #1
Print #1, Now & Space(1) & "哈哈哈" & vbCrLf
Close #1
End Sub
这样就ok了

追问

我是想用两种选择，一运行程序的时候自动运行，不然用COMMAND1。能不能加个打钩来选择啊 ？ 辛苦你了

Answer 2

Private Sub Form_Load()
Text1.Text = Time '显示时间

Open "E:\1.txt" For Append As #1
Print #1, Format(Now, "yyyy-mm-dd");
Print #1 & "哈哈哈", Text1

Close #1
End Sub

Answer 3

加个分号就不换行了
Private Sub Form_Load()
Open "E:\1.txt" For Append As #1
Print #1, Format(Now, "yyyy-mm-dd");
Print #1, Time;
Print #1, "哈哈哈"
Close #1
End Sub

Answer 4

Print #1, Format(Now, "yyyy-mm-dd") & "哈哈" 这样就在同一行了