Set WshShell = Wscript.CreateObject("Wscript.Shell") WshShell.Run ("notepad " & Wscript.ScriptFullName) '上面用SHELL对象启动程序
Set fs = Wscript.CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile("c:/testfile.txt", True) a.WriteLine("这是一个测试。") a.Close '用COM对象Scripting.FileSystemObject操作文本文件