2015年2月15日 星期日

asp執行dos指令,複製檔案






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




沒有留言:

張貼留言