dim WShShell,fs,f Set WShShell = Server.CreateObject("WScript.Shell") set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.CreateTextFile(Server.Mappath("C.bat"),true) 'f.write("copy " & Server.Mappath("aa.txt") & " " & Server.Mappath("bb.txt") & " /Y") f.write("copy D:\WebSite\aa.txt D:\WebSite\bb.txt /Y") f.close WShShell.Run Server.Mappath("C.bat"), 1, True set f=nothing set fs=nothing set WShShell=nothing |
沒有留言:
張貼留言