Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile("D:\Production record\jb\RZ.txt", True) MyFile.Close Set MyFile = fso.GetFile("D:\Production record\rizhi\RZ.txt") MyFile.Copy ("D:\Production record\jb\rz.txt") set ws=createobject("wscript.shell") ws.run """D:\Production record\rizhi\改格式.bat""" 复制代码
Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile("D:\Production record\jb\RZ.txt", True) MyFile.Close Set MyFile = fso.GetFile("D:\Production record\rizhi\RZ.txt") MyFile.Copy ("D:\Production record\jb\rz.txt") set ws=createobject("wscript.shell") ws.run """D:\Production record\rizhi\改格式.bat"""