展开全部
时间里有:,如09:12:33,这在文件起名时是不允许的。
如果想做,建议把分隔符改成其他。
这时你可以用hour(time())取时,分、秒类似取
也可以放在文本框里用,程序如下,其中 fn 是个文本框
Private Sub Command1_Click()
A = Time()
fn = A & ".txt"
For i = 0 To Len(fn) - 1
fn.SelStart = i
fn.SelLength = 1
If fn.SelText = ":" Then fn.SelText = ":"' 想改成什么自己写,我这个是中文的:
Next
fn = "d:\" & fn
Open fn For Output As #1
End Sub
如果想做,建议把分隔符改成其他。
这时你可以用hour(time())取时,分、秒类似取
也可以放在文本框里用,程序如下,其中 fn 是个文本框
Private Sub Command1_Click()
A = Time()
fn = A & ".txt"
For i = 0 To Len(fn) - 1
fn.SelStart = i
fn.SelLength = 1
If fn.SelText = ":" Then fn.SelText = ":"' 想改成什么自己写,我这个是中文的:
Next
fn = "d:\" & fn
Open fn For Output As #1
End Sub
展开全部
Open "c:\" & Format(Now, "HHMMSS") & ".txt" For Output As #1
Close #1
Close #1
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
= = 你不觉得费事嘛,直接在文件夹右击新建一个txt不就好了?
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询