dim fso, f set fso = CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile("C:\Users\Administrator\Desktop\5.txt", 2, false) '第二个参数 2 表示重写,如果是 8 表示追加 f.Write("写入内容asdad") f.WriteBlankLines(3) '写入三个空白行(相当于在文本编辑器中按三次回车) f.WriteLine("写入内容并换行scas") f.Close() set f = nothing set fso = nothing 复制代码
dim fso, f set fso = CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile("C:\Users\Administrator\Desktop\5.txt", 2, false) '第二个参数 2 表示重写,如果是 8 表示追加 f.Write("写入内容asdad") f.WriteBlankLines(3) '写入三个空白行(相当于在文本编辑器中按三次回车) f.WriteLine("写入内容并换行scas") f.Close() set f = nothing set fso = nothing