如何在根据中使用CreateTextFile方法

如何在根据中使用CreateTextFile方法?相信很多没有经验的人对此束手无策,为此本文总结了问题出现的原因和解决方法,通过这篇文章希望你能解决这个问题。

CreateTextFile方法

创建指定文件并返回<强>文本对象,该对象可用于读或写创建的文件。

对象。CreateTextFile(文件名(覆盖[unicode]])

参数

对象

文件名

覆盖

<强>真的;如果不能覆盖文件,则该值为<强>假强。如果省略该值,则不能覆盖现有文件。

unicode

<强>真的;如果以ASCII文件格式创建文件,则该值为<强>假强。如果省略此部分,则假定创建ASCII文件。

说明

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

Sub  CreateAfile  Dim 无线光通信,MyFile 　　,Set  fso =, CreateObject (“Scripting.FileSystemObject") 　　,Set  MyFile =, fso.CreateTextFile (“c: \ testfile.txt",,真的) 　　,MyFile.WriteLine(“这是一个测试!”),MyFile.CloseEnd 子

对于<强>文件名已经存在的文件,如果<强>覆盖参数为<强>假强,或未提供此参数时,则会出现错误。

但很多时候为了方便,我们会自定义生成文本文件的函数

Function  createTextFile (Byval 内容,Byval  fileDir Byval 代码) 　　dim  fileobj fileCode : fileDir=取代(fileDir,,“\“,“/? 　　if  isNul(代码),then  fileCode=Charset  else  fileCode=代码 　　call  createfolder (fileDir“filedir") 　　if  fileCode=皍tf-8"然后 　　提醒error  resume  next 　　With  objStream 　　.Charset=fileCode: 　　.Type=2: 　　.Mode=3: 　　.Open: 　　.Position=0 　　.WriteText 内容: 　　.SaveToFile  Server.MapPath (fileDir), 2 　　.Close 　　最终获得; 　　其他的 　　提醒error  resume 下:err.clear 　　set  fileobj=objFso.CreateTextFile (server.mappath (fileDir),真的) 　　fileobj.Write(内容) 　　set  fileobj=最终获得; 　　if  Err  Then  err.clear  createTextFile=false :, errid=这:errdes=err.description: err.clear :, echoErr  err_09, errid, errdes  else  createTextFile=true 　　最终获得函数 Sub  echoErr (byval  str, byval  id, byval  des),,,, 　　 　　,,,dim  errstr cssstr 　　cssstr=? lt; meta  http-equiv=啊癈ontent-Type"“,内容=啊皌ext/html;, charset=? Charset&“““,/祝辞;“ 　　,,,cssstr=cssstr&“& lt; style>身体{text-align:中心}#味精{背景颜色:白色;边界:1 px  solid  # 0073 b0;保证金:0,汽车;宽度:400 px; text-align:左}.msgtitle{填充:3 px  3 px;颜色:白色,粗细:700;行高:28 px; height30px;字体大小:12 px;边界底部:1 px  solid  # 0073 b0;, indent: 3 px;, background - color: # 0073 b0} # msgbody{字体大小:12 px;填充:20 px  8 px  30 px;行高:25 px} # msgbottom {text-align:中心;高度:20 px;行高:20 px;字体大小:12 px; background - color: # 0073 b0;颜色:# FFFFFF} & lt;/style>“ 　　,,,errstr=cssstr&“& lt; script 语言=啊癹avascript"“祝辞setTimeout (““goLastPage ()““, 5000); function  goLastPage () {location.href=& # 39;“和,sitePath 和“/& # 39;;}& lt;/script> & lt; div  id=& # 39;味精# 39;祝辞& lt; div 类=& # 39;msgtitle& # 39;在提示:【“,str&“】& lt;/div> & lt; div  id=& # 39; msgbody& # 39;在错误号:“,id&“& lt; br>错误描述:“,des&“& lt; br /祝辞& lt; a  href=啊癹avascript: history.go(1);““祝辞返回上一页& lt;/a>,, & lt; a  href=啊啊?, sitePath ,“/?“在返回首页& lt;/a> & lt;/div> & lt; div  id=& # 39; msgbottom& # 39;祝辞Powered  by  AspCms2.0