wzkl.net
当前位置:首页 >> vB怎么新建txt文件 >>

vB怎么新建txt文件

在程序中加上下面这一句: open app.path & "\abc.txt" for output as #1 就可以了。 如果还有不明白的地方请留言。

Private Sub Command1_Click() Open Text1.Text & "\" & Text2.Text & ".txt" For Output As #1 Print #1, A Close #1 End Sub text1路径 text2文件名 A为输出内容

1、vb6新建文本文件有很多种办法。 2、以下示例使用open语句的output方式创建d:盘根目录下的TESTFILE.TXT文本文件。 Private Sub Command1_Click()Open "d:\TESTFILE.TXT" For Output As #1Print #1, "Hello world."Close #1End Sub

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 Ms...

实现方法如下 : 1、在窗体上添加text1控件,并把上面文本复制到text1.text中; 2、写入文本文件: dim i as integer i=freefile open "c:\1.txt" for output as #i print #i,text1.text close #i

Open "d:\123.txt" For Output As #1 '打开一个文本文件,如果不存在就自动建立 Print #1, "要写入文件中的内容" Close #1 '关闭文件

a=text1.text open "xxx.txt" for output as #1'打开文件,没有文件就创建,有就覆盖 print #1,a '写入数据 这样写好懂一点

If Dir(App.Path & "\user\" & Text1.Text & ".txt" ) "" Then msgbox "文件已经存在" else Open App.Path & "\user\" & Text1.Text & ".txt" For Output As #1 'Print #1, Text1.Text Close #1 End

新建TXT文档并按行输出代码如下: Dim s as String '定义一个字符变量 Open "C:\OUT.txt" For Output As #1 '写入文件C:\OUT.TXT '程序循环过程 Print #1, s '程序循环过程 Close #1 '关闭打开的文件

Private Sub Form_Click() fname = InputBox("请输入文件名:", "请保证文件名正确,如例子", "d:\temp.txt") fn = FreeFile '获取一个空闲可用文件号 Open fname For Output As fn '打开fname指名的文件用于输出 Print #fn, "你好,这是要输入...

网站首页 | 网站地图
All rights reserved Powered by www.wzkl.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com