VB中怎么将now函数的值作为文本文档的名字

VB中怎么将now函数的值作为文本文档的名字

时间字符串中含有特殊字符串（比如斜杠/和冒号:），不能直接用作文件名，必须把特殊字符去掉（或替换为合法字符）才行，比如：
fname = Format(Now, "yyyymmddhhnnss")
注意，表示分钟的格式符为nn，不是mm（月份才是mm）追问谢谢，不过还是报错追答数据类型不匹配？早说嘛

Dim fname As String
fname = Format(Now, "yyyymmddhhnnss")

Private Sub Command1_Click()
Dim fname As String
fname = Replace(Now, "/", "-")
fname = Replace(fname, ":", "：")
fname = "d:\121工件\" & fname & ".txt"
Open fname For Output As 1#
Print #1, Now
Close #1
End Sub追问谢谢了 你的这个和我截取时分秒的一样的效果，如果我是这样：
Private Sub Command1_Click()
Dim fname As String
fname = DATE
fname = "d:\121工件\" & fname & ".txt"
end sub
再次实行一次便会把数据覆盖，是不是应为DATE作为文本文档名字一样的后果啊，怎么能文本文档名字不变，但是不覆盖呢追答Private Sub Command1_Click()
Dim fname As String
fname = Replace(Date, "/", "-")
fname = "d:\" & fname & ".txt"
If Dir(fname) <> "" Then
Open fname For Append As 1
Else
Open fname For Output As 1
End If
Print #1, "OK!!!!"
Close 1
End Sub