Dim fso, MyFile

2011-12-11

Dim fso, MyFile
Set fso =
CreateObject(“Scripting.FileSystemObject”)
Set MyFile =
fso.CreateTextFile(“c:\testfile.txt”, True)
MyFile.WriteLine(“This is a
test.”)
MyFile.Close
Set MyFile =
fso.GetFile(“c:\testfile.txt”)
MyFile.Copy (“E:\test2.txt”)

作者：admin | 分类目录：技术文章 | 标签：