Question

请问如何用VB新建一个文本文件?

要求:文件名为当前年份和月份组合,如200802,如果此文件已存在,则弹出消息框"文件存在"

Answer 1

Private Sub Command1_Click()
f_name = "c:\" & Format(Now, "yyyymm") & ".txt"
On Error GoTo createfile
s = FileDateTime(f_name)
MsgBox f_name & "文件已存在"
Exit Sub
createfile:
Open f_name For Output As #1
Close #1
End Sub