ABC 컴포넌트 다중업로드

출처 : http://maru7937.egloos.com/4840021

If abc("file") <> "" Then 
   FileCnt = abc("file").count
Else
   FileCnt = 0
End If

Dim i
Dim FileName(), FileName(), FileType()
Redim FileName(FileCnt), FileName(FileCnt), FileType(FileCnt)

For i = 1 To FileCnt    

Set oFile =  ABC(trim("file"))(i)

If oFile.FileExists Then

FileName(i) = oFile.SafeFileName
FileSize(i) = oFile.Length
FileType(i) = oFile.FileType

 If FileSize(i) > 500000 then
  Response.Write "<script language=javascript>"
  Response.Write "alert('500K 이상의 사이즈인 파일은 업로드하실 수 없습니다');"
  Response.Write "history.back();"
  Response.Write "</script>"
  Response.end
  
  Else if lcase(FileType(i)) <> "gif" and lcase(FileType(i)) <> "jpg" then
   Response.Write "<script language=javascript>"
   Response.Write "alert('확장자는 반드시 Jpg또는 Gif로 올려주세요');"
   Response.Write "history.back();"
   Response.Write "</script>"
   Response.end
  Else
 
   strFileWholePath = DirectoryPath&"\"&goods_code&"_"&I&"."&FileType(i)
 
   oFile.Save strFileWholePath
  
  End if
  
 End if
 
End if

Next

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

화일명이 중복되있다면 파일명을 변경하는 함수입니다. 잘쓰세요..

strFileWholePath = GetUniqueName(FileName(i), DirectoryPath)

' 업로드시 중복화일 화일명 변경 처리 함수
Function GetUniqueName(byRef strFileName, DirectoryPath)
 Dim strName, strExt, strLen, strCom, strNow
 ' "."확장자가 있는지 확인한다
 If Instr(strFileName, ".") Then
  strNow = "Y"
 Else
  strNow = "N"
 End If

 Dim fso : Set fso = Server.CreateObject("Scripting.FileSystemObject")
  
 Dim bExist : bExist = True 
 '우선 같은이름의 파일이 존재한다고 가정
 Dim strFileWholePath
 '저장할 파일의 완전한 이름(완전한 물리적인 경로) 구성
 Dim countFileName : countFileName = 0 
 '파일이 존재할 경우, 이름 뒤에 붙일 숫자를 세팅함.
  
 If strNow = "Y" Then  '확장자가 있을때
  ' 확장자를 제외한 파일명을 얻는다.
  strName = Mid(strFileName, 1, InstrRev(strFileName, ".") - 1)
 Else
  strName = strFileName
 End If

 strExt = Mid(strFileName, InstrRev(strFileName, ".") + 1)
 '확장자를 얻는다
 strFileWholePath = DirectoryPath & "\" & strFileName

 Do While bExist ' 우선 있다고 생각함.
  If (fso.FileExists(strFileWholePath)) Then ' 같은 이름의 파일이 있을 때
   countFileName = countFileName + 1 '파일명에 숫자를 붙인 새로운 파일 이
름 생성
   strFileName = strName & "(" & countFileName & ")." & strExt
   If strNow = "Y" Then
    strFileName = strName & "(" & countFileName & ")." & strExt
   Else
    strFileName = strName & "(" & countFileName & ")"
   End If
   strFileWholePath = DirectoryPath & "\" & strFileName
  Else
   bExist = False
  End If
 Loop
 GetUniqueName = strFileWholePath
End Function