创建文件 dim fso, f set fso = server.CreateObject("Scripting.FileSystemObject") set f = fso.CreateTextFile("C:\test.txt", true) '第二个参数表示目标文件存在时是否覆盖 f.Write("写入内容") f.WriteLine("写入内容并换行") f.WriteBlankLines() '写入三个空白行(相当于
Option Explicit---------------------------------------------------------开头 dim fas,objfso,printstr,objtextfile,i---------------------------------变量 Set fas = CreateObject("Scripting.FileSystemObject")------创建fso对象 If fas.FolderExists("c:\te