-- 업로드 파일 삭제
strDirectory = Server.MapPath ("/.") & "\DATA\" ' 서버내 파일이 존재하는 위치
strFile = strDirectory & filename ' 삭제할 파일명
Set FSO = CreateObject("Scripting.FileSystemObject") ' 정의
FSO.DeleteFile(strFile) '실제위치의 파일을 삭제한다.
set FSO = Nothing
-- 업로드 파일 용량 추가 및 저장폴더 지정
Dim Upload
'업로드를 처리할 오브젝트를 생성합니다.
Set Upload = Server.CreateObject("TABSUpload4.Upload")
'-- 크기 초과시 서버에서 강제로 연결을 종료시킵니다.
Upload.MaxBytesToAbort = 2 * 1024 * 1024
Upload.Start UploadFSet & "data"
-- 업로드 파일 추가
If upload.Form("file").FileSize > 0 Then
fileName = upload.Form("file").FileName '파일이름
filesize = upload.Form("file").FileSize '파일사이즈
FileType = upload.Form("file").FileType '파일유형
if fileName <> "" or fileName <> " " then
func_type(FileType)
upload.Save UploadFSet & "data"
fileURL = upload.Form("file").SaveName
Dim fileurl2
fileurl2 = Split(fileURL, "\")
'response.write fileurl2(4)&"<br/>"
fileName = fileurl2(4)
end if
else
fileName = ""
fileURL = ""
filesize = 0
End If
'유니크한 파일경로및 파일이름을 얻어내는 함수
Function GetUniqueName(byRef strFileName, DirectoryPath)
Dim strName, strExt
' 확장자를 제외한 파일명을 얻는다.
strName = Mid(strFileName, 1, InstrRev(strFileName, ".") - 1)
strExt = Mid(strFileName, InstrRev(strFileName, ".") + 1) '확장자를 얻는다
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim bExist : bExist = True
'우선 같은이름의 파일이 존재한다고 가정
Dim strFileWholePath : strFileWholePath = DirectoryPath & "\" & strName & "." & strExt
'저장할 파일의 완전한 이름(완전한 물리적인 경로) 구성
Dim countFileName : countFileName = 0
'파일이 존재할 경우, 이름 뒤에 붙일 숫자를 세팅함.
Do While bExist ' 우선 있다고 생각함.
If (fso.FileExists(strFileWholePath)) Then ' 같은 이름의 파일이 있을 때
countFileName = countFileName + 1 '파일명에 숫자를 붙인 새로운 파일 이름 생성
strFileName = strName & "(" & countFileName & ")." & strExt
strFileWholePath = DirectoryPath & "\" & strFileName
Else
bExist = False
End If
Loop
GetUniqueName = strFileWholePath
End Function
http://cambo95.blog.me/100110487413