如何在给定的路径创建文本文件，并写入数据？100分奉送

Question

Open paths + "\" + Filename + ".txt" For Output As #1
Print #1, "内容“
Close #1
如果没有该文件会创建的，

Answer 1

引用Microsoft Script Runtime
dim fso as new filesystemobject
dim f as file
set f=fso.createtextfile("d:\vibration")
f.write "写入数据"
f.close
set f=nothing
set fso=nothing

Answer 2

看看这个帖子,一样的：http://www.csdn.net/expert/topic/1017/1017960.xml?temp=.1978571

Answer 3

读取：
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileText1.Text=StrConv(LoadBytes,vbUniCode)写入：
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile

Answer 4

CreateTextFile 方法
         描述创建一个指定的文件名并且返回一个用于该文件读写的 TextStream 对象。语法object.CreateTextFile(filename[, overwrite[, unicode]])CreateTextFile 方法有如下几部分：部分 描述 
object 必需的。始终是一个 FileSystemObject 或 Folder 对象的名字。 
filename 必需的。字符串表达式，它标识创建的文件。 
overwrite 可选的。Boolean 值，表示一个已存在文件是否可被覆盖。如果可被覆盖其值为 True，其值为 False 时不能覆盖。如果它被省略，则已存在文件不能覆盖。 
unicode 可选的。Boolean 值，表示文件是作为一个 Unicode 文件创建的还是作为一个ASCII 文件创建的。如果作为一个 Unicode 文件创建，其值为 True，作为一个 ASCII 文件创建，其值为 False。如果省略的话，则认为是一个 ASCII 文件。 
说明下面的代码举例说明如何使用 CreateTextFile 方法创建和打开文本文件。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对于一个已经存在的 filename，如果 overwrite 参数是 False 或者没有提供，则发生一个错误。

Answer 5

两种方法：
一、利用传统的io函数，比如open……for input（output）as ＃1
                          print strText等
二、利用微软的File System Object，在msdn里有详细的介绍，用着特方便，功能也很强大。（上面也有老兄介绍过的）