如何在VBS中使用CreateTextFile 方法？相信很多没有经验的人对此束手无策，为此本文总结了问题出现的原因和解决方法，通过这篇文章希望你能解决这个问题。
你所需要的网站建设服务，我们均能行业靠前的水平为你提供.标准是产品质量的保证，主要从事
网站设计制作、做网站、企业网站建设、
成都手机网站制作、网页设计、
品牌网站制作、网页制作、做网站、建网站。创新互联拥有实力坚强的技术研发团队及素养的视觉设计专才。
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.CloseEnd Sub对于filename 已经存在的文件，如果overwrite 参数为False，或未提供此参数时，则会出现错误。
但很多时候为了方便，我们会自定义生成文本文件的函数
Function createTextFile(Byval content,Byval fileDir,Byval code)
dim fileobj,fileCode : fileDir=replace(fileDir, "\", "/")
if isNul(code) then fileCode=Charset else fileCode=code
call createfolder(fileDir,"filedir")
if fileCode="utf-8" then
on error resume next
With objStream
.Charset=fileCode:
.Type=2:
.Mode=3:
.Open:
.Position=0
.WriteText content:
.SaveToFile Server.MapPath(fileDir), 2
.Close
End With
else
on error resume next:err.clear
set fileobj=objFso.CreateTextFile(server.mappath(fileDir),True)
fileobj.Write(content)
set fileobj=nothing
end if
if Err Then err.clear :createTextFile=false : errid=err.number:errdes=err.description:Err.Clear : echoErr err_09,errid,errdes else createTextFile=true
End Function
Sub echoErr(byval str,byval id, byval des)
dim errstr,cssstr
cssstr=""
cssstr=cssstr&""
errstr=cssstr&"setTimeout(""goLastPage()"",5000);function goLastPage(){location.href='"& sitePath &"/';}提示：【"&str&"】
