Question

VB中新建一个以时间为命名的txt,文档，用的是VB6.0.万分感谢。

Answer 1

Dim a As String
a = Format(Time, "11年07月30日") '把当前系统时间(年月日)赋给a，
a = a & Format(Time, "上午11点07分30秒")
Open App.Path & "\" & a & ".txt" For Output As #1 '打开文本文件

Close #1

追问

非常感谢您，不过能不能有自动的，就是说a = Format(Time, "11年07月30日") '把当前系统时间(年月日)赋给a， 这里的时间还是要自己填的，为什么我用 CStr（now） ，就不行。

追答

Dim a As String
a = Format(Now, "yyyy年m月d日hh点mm分s秒")
Open App.Path & "\" & a & ".txt" For Output As #1 '打开文本文件

Close #1

Answer 2

Dim c As String
c = Format(Now, "YYYYMMDD") '把当前系统时间(年月日)赋给c，
Open "D:\" + c + ".txt" For Append As #1 '读取文本文件
a = "123456" '文本内容，赋给a
Print #1, a + "," & b '写入文本文件,a后加逗号，再连接b

Close #1

追问

还有别的方法吗。