ABCUpload 컴포넌트를 이용하여 파일을 업로드 시킬때 지정된 폴더에 업로드시킬 파일이 존재하면 에러가
발생합니다.
이럴 경우 중복된 파일을 업로드시킬때는 먼저 파일이 있는지 없는지 검사해서 없으면 그냥 업로드 시키고 있으면
새롭게 올리는 파일이름끝에 번호를 부여해서 업로드 시키는 방법입니다.
이것은 FileSystemObjecet 를 이용하여 구현합니다. 다음은 그 사용예제 입니다.
먼저 파일을 업로드시키는 화면을 출력시키는 upload.html 문서입니다.
<html>
<body>
<form
method="post" action="dbupload.asp" enctype="multipart/form-data">
<input type="file" name="file"><br>
<input
type="submit" name="submit" value="submit">
</form>
<body>
</html> |
실제로 업로드 시키는 dbupload.asp 문서는 다음과 같습니다.
<%
Set theForm = Server.CreateObject("ABCUpload4.XForm")
Set theField = theForm("file")(1)
If theField.FileExists Then
filedir
= "./dirupload/"
filename
= theField.SafeFileName
filepath
= filedir & theField.SafeFileName
filesize
= theField.Length
Set
objFS = Server.CreateObject("Scripting.FileSystemObject")
fExist = TRUE
fCount
= 0
Do while fExist
If (objFS.FileExists(server.mappath(filepath)))
Then
fCount
= CInt(fCount)+1
filename1
= Mid(filename,1,Instr(filename,".")-1) ' 순수화일이름구하기
filename2
= Mid(filename,Instr(filename,".")+1) ' 확장명구하기
filename3
= filename1 & fCount & "." & filename2 ' 카운팅된 파일이름
filepath
= filedir & filename3
else
fExist
= FALSE
end if
Loop
Set
objFS = nothing
theField.Save
filepath
Set
theForm = nothing
Set theField
= nothing
Response.Write
"file uploaded .. "
End If
%> |
|
|
