출처 : 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")
'프로그래밍 > ASP' 카테고리의 다른 글
ASP 에서 XML 을 이용한 데이타를 SP 로 전송하고 받기 Sample (0) | 2010.09.07 |
---|---|
ASP페이지를 정적인 HTML파일로 만들기 (0) | 2010.04.23 |
ASP/ 불법 게시물 자동 등록 막기 (0) | 2010.04.23 |
ASP 템플릿 nTPL-ASP v1.0 (ASP 코드와 HTML 분리) (0) | 2010.04.23 |
테이블명세서 자동생성? (0) | 2010.04.23 |