vb 创建文本文件

来源：百度知道 编辑：UC知道 时间：2024/05/22 16:33:39
如何用VB创建一个文本文档。就是说在窗口里的TEXTBOX里输入文件名，然后点击创建按钮就能创建的那种，多谢了。。。
我的意思是，在textbox内输入任意文件名，然后点击创建，弹出创建成功的对话框，文件自动创建在VB默认的位置
前面是
dim filename as string
textbox=filename
后面的代码

Private Sub Command1_Click()
Dim filename As String
filename = App.Path & "\" & Text1 & ".txt" '创建的文件格式.
If Dir(filename) = "" Then '判断文件是否存在，不存在就创建，存在就不创建
Open filename For Append As #1
Close #1
MsgBox "创建成功。", vbInformation, "成功。"
Else
MsgBox "文件已存在.", vbInformation, "已存在在文件."
End If
End Sub

在窗体上 添加一个 command1 和一个textbox1

Private Sub Command1_Click()
Dim filename, str As String
filename = Text1.Text
str = "123456"
Open App.Path & "\" & filename & ".txt" For Output As #1
Print #1, str

MsgBox "文件自动创建在VB默认的位置"
Close #1
End Sub

1、vb使用open语句来打开要操作文件，使用open语句的output模式创建文本文件。

2、示例代码：

Private Sub Command1_Click()
 Open "d:\test.txt" For Output As #1