개발 갈무리

Dim objFso, strSourcePath, strDestPath
strSourcePath = WScript.Arguments.item(0)
strDestPath = WScript.Arguments.item(1)
Set objFso = CreateObject("Scripting.FileSystemObject")
If objFso.FileExists(strSourcePath) then
    objFso.MoveFile strSourcePath, strDestPath
End If
Set objFso = Nothing

'This Example Demonstrates How To Use The "GetExtensionName" Method To 
'Get The File Extension Of The Last Component In A Specified Path.

Dim Fso, FileExtension
Set Fso = CreateObject("Scripting.FileSystemObject") 'Creates "FileSystemObject" Object.
FilePath = InputBox("Enter Full Path Of The File : ","File Path") 'Get Path Of The File
FileExtension = Fso.GetExtensionName(FilePath) 'Returns Extension Of The Specified File.
MsgBox "Extension Of : " & FilePath & " Is - " & FileExtension

=====================================================================

Sub wOut(Var)
on error resume next
    Wscript.StdOut.Write(Var)

End Sub

on error resume next
    vPath = Wscript.Arguments(0)
    vOption = Wscript.Arguments(1)

    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set vFile = FSO.GetFile(vPath)

    vFilename = FSO.GetBaseName(vPath)
    vExtension = FSO.GetExtensionName(vPath)
    vType = vFile.Type

    Select case vOption
        case "filename":    wOut(vFilename)
        case "extension":   wOut(vExtension)
        case "type":        wOut(vType)
    End Select
    if err <> 0 then wOut("")
On error goto 0

정답부터 말하자면 다중 파일 다운로드 구현 시

각 파일 input의 name은 달라도 되고 같아도 된다.

다만 차이점은 다르게 쓰는 경우 그 변수를 받아내기 위해서 Map을 써야 한다는 점이다.

파일의 count를 나타내는 key값과 해당 파일 object를 value로 받아 활용한다.

일단 처리 속도는 차치하고

로직 부분에서만 봤을 땐 불필요하게 정보를 많이 구분하는 것처럼 보이지만

코딩테스트 등에서 Map의 처리 속도가 빠른 것으로 보아 구현 시 트래픽은 어떻게 될지 모르겠다.

파일이름을 같게 쓰는 경우 multipart의 배열로 받아 파일의 object만 넣어준다.

for (a : b)문으로 하나씩 꺼내 각각을 insert 찍어주는 식

신경쓸 점은 보통 파일 다운로드 페이지는 해당 게시글이나 페이지에 종속돼있기 때문에

DB table상에서 나눠주는 경우 참조키 문제를 잘 고려해야 한다는 정도