weloglog888

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

分类:

技术点:

相关文章: