我想通过一个单击事件，将一些数据存进一个文本文档里面，并且它会自动的以当天的日期为文件名保存，可以实现吗？
怎么实现，希望大家指点一下。

不可以实现吗？
还是我提问的不好，怎么没有人理我的。

Form_Click:

以 YYYYMMDD 格式:
s = Year(Now) & Format(Month(Now), "0#") & Format(Day(Now), "0#")
以 YYYYMD 格式:
s = Date
-----------------
然后输出数据:

Open "C:\" & s & ".txt" For Output As #1
Write #1, "数据"
Close #1

Private Sub Command1_Click()
Dim strFileName As String
strFileName = Date
Open "d:\" & strFileName & ".txt" For Output As #1
Print #1, "此代码由梁嘉辉编写"
Close #1
End Sub

非常感谢，我明白了。顺便问一下，如果以后我在某个程序中使用了Open "d:\" & strFileName & ".txt" For Output As #1
这段代码，这样会不会算是侵权呢，如果算是的话，那岂不是以后我做的软件都不可以实现这样的功能了。
如果我把strFileName改成别的又会不会呢？

照这么说，99% 的 vb 程序都有 Private Sub Form_Load() 和 End Sub，这些程序也算侵权啦！！
一些小代码是可以从别人那里吸取的，不算是抄袭。
但如果你说要把 windows 的源代码抄下来……

[此贴子已经被作者于2006-5-11 13:24:19编辑过]

哦 那我明白了 谢谢