- 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
来源: http://www.bubuko.com/infodetail-2976537.html