今天，在写一个程序时，反复写一个文本文件，所以你写了一个处理函数，希望对大家有用。
代码：
复制代码代码如下所示：
子write2file（strfile，strcontent，blnappend）

写文件
strfile文件名（路径），书写的内容strcontent，blnappend添加
下次继续出错
集objfso = server.createobject（脚本。FileSystemObject ）
如果blnappend然后
集objwritetext = objfso.opentextfile（strfile，8，真的）
其他的
集objwritetext = objfso.opentextfile（strfile，2，真的）
最后如果
ObjWriteText.WriteLine（strcontent）
集objwritetext =没有
集objfso =没有
的容错处理
选择案例的错误
案例424响应。写路径没有找到或目录没有写权限。
其他情况下的响应。
其他情况下的反应。
最后选择
端子
调用方法：
write2file C： dd.ini
也许
电话write2file（C： dd.ini
解释：
1。自动设置文件；
2。无法自动设置目录