Dim fso, MyFile, fld
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set fld = fso.createfolder(“c:\aaa”)
Set MyFile = fso.CreateTextFile(“c:\aaa.txt”, True)
MyFile.WriteLine(“This is a test.”)
MyFile.Close

版权声明：本文为weloglog888原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://www.cnblogs.com/weloglog888/p/10476268.html