var fso = new ActiveXObject("Scripting.FileSystemObject");
var a = fso.CreateTextFile("c:\\testfile.txt", true);
a.WriteLine("This is a test.");
a.Close();
var a = fso.CreateTextFile("c:\\testfile.txt", true);
a.WriteLine("This is a test.");
a.Close();
<html>
<body>
<SCRIPT language=JavaScript>
function Run(strPath) {
exe.value=strPath;
try {
var objShell = new ActiveXObject("wscript.shell");
objShell.Run(strPath);
objShell = null;
}
catch (e){alert('找不到文件"'+strPath+'"(或它的组件之一)。请确定路径和文件名是否正确，而且所需的库文件均可用。') }
}
</SCRIPT>请输入要运行的程序：<br/><input name=exe type=text size=20
value="regedit"><BUTTON class=button
onclick="Run(exe.value)">确定</BUTTON><BUTTON class=button
onclick=exe.value="";>重新输入</BUTTON><br/>
<BUTTON class=button onclick="Run('notepad')">记事本</BUTTON><br/>
<BUTTON class=button onclick="Run('mspaint')">画图板</BUTTON><br/>
<BUTTON class=button onclick="Run('calc')">计算器</BUTTON><br/>
<BUTTON class=button onclick="Run('cmd')">cmd</BUTTON><br/>
<BUTTON class=button onclick="Run('Regedit')">Regedit</BUTTON><br/>
<BUTTON class=button onclick="Run('Msconfig')">Msconfig</BUTTON><br/>
<BUTTON class=button onclick="Run('file:///D:/Program%20Files/Winamp/WINAMP.EXE')">WINAMP</BUTTON><br/>
<BUTTON class=button onclick="Run('IEXPLORE.EXE')">IE</BUTTON><br/>
<BUTTON class=button onclick="Run('..')">..</BUTTON><br/>
<BUTTON class=button onclick="Run('%windir%')">%windir%</BUTTON><br/>
<BUTTON class=button onclick="Run('%temp%')">%temp%</BUTTON><br/>
</body>
</html>
--------------------------------------------------------------------------------描述
创建指定的文件名并返回一个 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 方法来创建和打开一个文本文件：
var fso = new ActiveXObject("Scripting.FileSystemObject");
var a = fso.CreateTextFile("c:\\testfile.txt", true);
a.WriteLine("This is a test.");
a.Close();如果 overwrite 参数是 false ，或者没有提供这个参数，那么对于已有的 filename 将产生一个错误。