ASP نسخة الطريقة

FileObject.Copy(destination[,overwrite])

FolderObject.Copy(destination[,overwrite])

<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile("c:\test.txt")
f.Copy("c:\new_test.txt",false)
set f=nothing
set fs=nothing
%>

<%
dim fs,fo
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("c:\test")
fo.Copy("c:\new_test",false)
set fo=nothing
set fs=nothing
%>