创建文件 dim fso, f set fso = server.CreateObject("Scripting.FileSystemObject") set f = fso.CreateTextFile("C:\test.txt", true) '第二个参数表示目标文件存在时是否覆盖 f.Write("写入内容") f.WriteLine("写入内容并换行") f.WriteBlankLines() '写入三个空白行(相当于
vbs代码: Dim fso,f,a Set fso = CreateObject("Scripting.FileSystemObject") Set f=fso.OpenTextFile("D:\test.txt",1) DO While f.AtEndOfStream <> True a=f.ReadLine msgbox a loop test.txt内容 10899
Option Explicit---------------------------------------------------------开头 dim fas,objfso,printstr,objtextfile,i---------------------------------变量 Set fas = CreateObject("Scripting.FileSystemObject")------创建fso对象 If fas.FolderExists("c:\te
Dim fso,f,a set oExcel = CreateObject( "Excel.Application" ) oExcel.Visible = false '4) 打开已存在的工作簿: oExcel.WorkBooks.Open( "F:\1.xlsx" ) On Error Resume Next '判断是否存在Sheet2工作表,不存在新建 If oExcel.WorkSheets("Sheet2") Is Nothing The