DB에서 파일정보 조회 후 복사하기
목적 : DB에서 파일정보 조회 후 복사
내용 :
첨부된 파일을 마이그레이션 해야 할 일이 생김
해당 시스템이 ASP 여서 ASP로 정보 조회해서 복사하는 것 작성
ASP 파일 객체 : Scripting.FileSystemObject
getFile : 파일정보 가져옴
moveFile : 파일을 이동, 이동 시 destination 에 다른 이름을 주면 변경된 이름이로 이동함
copyFile : 파일을 복사, 같은 폴더에 복사 시 destination에 다른 이름을 주면 변경된 이름으로 복사함
<!--#include virtual="/include/dbcon.inc"-->
<%
path = "C:\app\prj\TEST\userfiles\test\"
path2 = "C:\app\prj\TEST\userfiles2\test\"
'1. tbl_file 정보 조회
Dim db
DBConn()
sql = "Select * From tbl_file where file_no = 'xxx'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,db
%>
<ul>
<%
do until rs.eof
if rs("file_name") <> FILTER(rs("file_name")) then
isCopyTarget = true
bgColor = "red"
else
isCopyTarget = false
bgColor = "black"
end if
%>
<li style="color:<%=bgColor%>">
<%=rs("file_name")%> => <%=FILTER(rs("file_name"))%>
<br>
<%=path + rs("file_name")%>
</li>
<%
if isCopyTarget = true then
'파일 rename 처리
set objFS =Server.CreateObject("Scripting.FileSystemObject")
'objFS.getFile path + rs("file_name")
'objFS.movefile path + rs("file_name"), path2 + FILTER(rs("file_name"))
objFS.copyfile path + rs("file_name"), path2 + FILTER(rs("file_name"))
set objFS = nothing
end if
rs.movenext
loop
rs.close
set rs = nothing
dbclose()
%>
</ul>
참고 URL
http://www.w3schools.com/asp/asp_ref_filesystem.asp
http://genesic7.blog.me/120164546280
