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

来源：百度知道 编辑：UC知道 时间：2024/05/20 19:41:48
要求:文件名为当前年份和月份组合,如200802,如果此文件已存在,则弹出消息框"文件存在"

1、vb6新建文本文件有很多种办法。

2、以下示例使用open语句的output方式创建d:盘根目录下的TESTFILE.TXT文本文件。

Private Sub Command1_Click()
Open "d:\TESTFILE.TXT" For Output As #1
Print #1, "Hello world."
Close #1

End Sub

sub command1_click()
filename$="c:\" & format(now, "yyyymm") & ".txt"
if len(dir(filename)) then msgbox "文件存在":exit sub
open filename for binary as #1
close #1
end sub

Dim FileNum As Integer
Dim FileName As String
FileNum = FreeFile()
FileName = "c:\" & Format(Now, "YYYYMMDD") & ".txt"
If Dir(FileName) <> "" Then
MsgBox "文件存在"
Else
Open FileName For Output As FileNum
Close FileNum
End If

Private Sub Command1_Click()
f_name = "c:\" & Format(Now, "