摘要:
Sub CreateAfile Dim fso,MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile("C:\111.tmx",True,True) MyFile.WriteLine("这只是个测试") MyFile.CloseEnd Subcall CreateAfileSet Stream = CreateObject("adodb.stream") ‘定义常量 Const adTy 阅读全文