vbs创建文本文件及检测文件是否存在

CreateTextFile 方法

创建指定文件并返回 TextStream 对象，该对象可用于读或写创建的文件。

object.CreateTextFile(filename[, overwrite[, unicode]])

参数

object

必选项。应为 FileSystemObject 或 Folder 对象的名称。

filename

必选项。字符串表达式，指明要创建的文件。

overwrite

可选项。Boolean 值指明是否可以覆盖现有文件。如果可覆盖文件，该值为 True；如果不能覆盖文件，则该值为 False 。如果省略该值，则将覆盖现有文件。

unicode

可选项。Boolean 值指明是否以 Unicode 或 ASCII 文件格式创建文件。如果以 Unicode 文件格式创建文件，则该值为 True；如果以 ASCII 文件格式创建文件，则该值为 False。如果省略此部分，则假定创建 ASCII 文件。

说明

以下代码举例说明如何使用 CreateTextFile 方法创建并打开文本文件：

Sub CreateAfile

  Dim fso, MyFile

  Set fso = CreateObject("Scripting.FileSystemObject")

  Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)

  MyFile.WriteLine("这是一个测试。")

  MyFile.Close

End Sub

对于 filename 已经存在的文件，如果 overwrite 参数为 False，或未提供此参数时，则会出现错误。

以上来源：http://www.yesky.com/imagesnew/software/vbscript/html/vsmthCreateTextFile.htm

下面是自己写的一个小例子，代码：

On error resume Next

Dim mu_sResult, mu_sFilePath, mu_sFileName
mu_sResult = "你好，欢迎致电900fd"
mu_sFilePath = "textFolder/"
mu_sFileName = mu_sFilePath & "ResultVoice.txt"

Dim fs, ts
set fs = CreateObject("Scripting.FileSystemObject")
if(fs.FileExists(mu_sFileName)) Then                     '检测文件是否存在
    MsgBox "文件已存在"
end if

set ts = fs.CreateTextFile(mu_sFileName, True, True)    '第二个参数不写的话，默认为True(会覆盖原文件)
ts.WriteLine mu_sResult
ts.Close

set ts = Nothing
set fs = Nothing