vb怎么写文件

『壹』 VB中如何读写文件 谢谢了

用open
open <文件名>[for 打开方式] as [#]<文件号>
打开方式有三种
（1）input：向计算机输入数据，即从所打开的文件中读取数据。
(2)output:向文件写数据，即从计算机向所打开的文件写数据。如果文件中原来已有数据，则原有数据被抹去，即新写上的数据覆盖已有的数据。
（3）append:向文件添加数据，即从计算机向所打开的文件写数据。不同于output方式的是，append方式把新的数据添加到文件尾部原有数据的后边，文件中保留原有数据。
AS是一个关键字，as引导的短语为打开的文件指定一个文件号。#号是可选项。文件号是一个1~511之间的整数。文件号用来代表所打开的文件。

例如：打开c:\a.txt文件
open "c:\a.txt" for output as #1

向文件写数据用print和write语句：
print #<文件号>[,输出表列]
write #<文件号>〔，输出表列]
例如向上面打开的文件写数据
print #1,"a";"b";"c"
close #1
文件里显示为：
abc

『贰』 vb中如何创建文件

假定抄按钮名为Command1，如下代码实现。
Private Sub Command1_Click()
Open App.Path & "go.txt" For Output As #1
Print #1, "这是用VB创建的文件。"
Close #1
End Sub

『叁』 如何用VB创建文件并对它操作。

VB可用Open 语句操作或建立文件。

Open 语句，能够对文件输入/输出 (I/O)。

TypeRecord'定义用户自定义数据类型。
IDAsInteger
NameAsString*20
EndType

DimMyRecordAsRecord'声明变量。
Open"TESTFILE"ForRandomAs#1Len=Len(MyRecord)
'若要以其他方式打开文件，必需先关闭此文件。
Close#1

『肆』 VB中文件的读写方法

Private Sub Command1_Click()
Static StrTxt$, k&, h&, Num() As String
Open "c:\in.txt" For Input As #1
Input #1, StrTxt
Close #1
Num = Split(StrTxt, " ")
For k = 0 To UBound(Num)
If Num(k) Mod 3 = 0 Then
h = h + Val(Num(k))
End If
Next
Label1.Caption = CStr(h)
Open "c:\out.dat" For Output As #1
Print #1, CStr(h)
Close #1
End Sub

『伍』 如何用vb写文件操作

题主同时开了两个问题啊：

http://..com/question/578481323.html?oldq=1#answer-1453848518

因为题主给的条件太少，我这里先假设题主的填写工程名称的控件是Combo1，填写取用人的控件是Combo2，填写出入库的控件是Option1和Option2，填写取用数量的控件是Text1，填写备注的控件是Text2，确认按钮的控件是Command1，那么应该在Command1_Click中添加如下代码：

DimmyInfoAsString
DimmyStrAsString
DimfileNameAsString

IfOption1.Value=TrueThen
myStr="出库"
Else
myStr="入库"
EndIf
myInfo="工程名称："&Combo1.Text&"|取用人："&Combo2.Text&"|出入库："&myStr&"|数量："&Text1.Text&"|备注："&Text2.Text

fileName=App.Path&"123.txt"
OpenfilenNameForAppendAs#1
Print#1,myInfo
Close#1

『陆』 怎么用VB编写一个EXE文件

1）运行VB6.0，新建一个标准EXE工程

6）选择保存位置，确定执行，VB就完成EXE可执行文件的编写。