dim fso, f set fso = CreateObject("Scripting.FileSystemObject") set f = fso.CreateTextFile("C:\Users\Administrator\Desktop\1.txt", true) '第二个参数表示目标文件存在时是否覆盖 f.Write("写入内容") f.WriteLine("写入内容并换行") f.WriteBlankLines(3) '写入三个空白行(相当于在文本编辑器中按三次回车) f.Close() set f = nothing set fso = nothing 复制代码
dim fso, f set fso = CreateObject("Scripting.FileSystemObject") set f = fso.CreateTextFile("C:\Users\Administrator\Desktop\1.txt", true) '第二个参数表示目标文件存在时是否覆盖 f.Write("写入内容") f.WriteLine("写入内容并换行") f.WriteBlankLines(3) '写入三个空白行(相当于在文本编辑器中按三次回车) f.Close() set f = nothing set fso = nothing