ASP 파일 복사하기

출처 : http://blog.naver.com/aisiteru_u/80049412615

if ufile <> "" then
 dim tmp, turl, strfilename, fso, fileurl, filename, chk, f, filecopy
 
 Set fso = CreateObject("Scripting.FileSystemObject")
 tmp = Server.MapPath("..\..\")
 strfilename = tmp & "\" & "boardfile" & "\" & ufile 
 

 if (fso.fileexists(strfilename)) then
  Set f = fso.GetFile(strfilename)
  filecopy = tmp & "\" & fordername & "\" & ufile
  f.copy filecopy
   chk=true
 else
  chk=false
 end if 
end if

 

 

------------------------------------------------------------------------------------------

 

'file Copying...
Sub CopyFile(source, destination)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(source)
f.Copy destination
End Sub
%>

<%
'====== 복사할 원본 파일 , 복사될 파일.. ====
'Call CopyFile("d:\폴더명\ebs_work\ebs_db.asp", "d:\폴더명\ebs_work\ebs_db111.asp")