open "aaa.txt" for output as #1 print #1,文件内容 close #1
Open "c:\aaa.txt" For Output As #1 Print #1, "aaaa" '写入内容 close #1 '关闭文件
你是用open打开的aaa.txt,我是说怎么用vb生成aaa.txt
open "a.txt" for output as #1 print #1,"文件内容" close #1
open "C:\a.txt" for output as #1 运行到这一句的时候,如果C盘下面没有a.txt文件的话,那么系统会自动帮你创建一个a.txt文件的!
Sub CreateAfile Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile("c:\testfile.txt", True) a.WriteLine("This is a test.") a.Close End Sub
dim fs as object,a as object
如果 pathname 指定的文件不存在,那么,在用 Append、Binary、Output、或 Random 方式打开文件时,可以建立这一文件。如果文件已由其它进程打开,而且不允许指定的访问类型,则 Open 操作失败,而且会有错误发生。
print #1,文件内容
close #1
Print #1, "aaaa" '写入内容
close #1 '关闭文件
print #1,"文件内容"
close #1
运行到这一句的时候,如果C盘下面没有a.txt文件的话,那么系统会自动帮你创建一个a.txt文件的!
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
a.WriteLine("This is a test.")
a.Close
End Sub