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

2025-03-09 22:32:18

推荐回答（3个）

回答1：

时间字符串中含有特殊字符串（比如斜杠/和冒号:），不能直接用作文件名，必须把特殊字符去掉（或替换为合法字符）才行，比如：
fname = Format(Now, "yyyymmddhhnnss")
注意，表示分钟的格式符为nn，不是mm（月份才是mm）

回答2：

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

回答3：

fname=format(Now,"yyyymmddhhmmss")