Question

在VB中用写入命令如果这个文件不存在，会自动创建吗？

如果不能，那么用什么代码可以创建文件？

Answer 1

写open "路径文件名" for output as #1
print #1,text1.text
close #1读：
open "路径文件名" for output as #1
do while not EOF(1)
line input #1 , readtext
text1.text=text1.text & readtext & vbcrlf
loop 如果文件不存在他会自动创建。。你可以试试先看d盘没1.txt。在来写程序Private Sub Form_Load()
Open "d:\1.txt" For Output As #1
Print #1, "呵呵~~qq624475210"
Close #1
End Sub
把代码写进去。生成。打开后看。d盘1.txt出来了。他会自己创建的。

Answer 2

肯定不能创建一个文件：
在下面的代码中，a 是由 FileSystemObject 的 CreateTextFile 方法返回的 TextStream 对象：
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
a.WriteLine("This is a test.")
a.Close

创建一个文件夹：
MkDir "MYDIR" ' 建立新的目录或文件夹。

Answer 3

' 以随机访问方式打开文件。
Open "D:\bbb.bat" For Random As #1

Put #1, , "AAAAAAAAA" ' 将记录写入文件中。

Close #1 ' 关闭文件。

shell