Upload de Varios Arquivos

[igadino 0]

Galera estou com grande problema neste código para fazer upload de varios arquivos ele só tah mando um de cada vez, mas tenho que mandah varios, alguem pode adapitar este código para enviar varios arquivos de uma só vez se alguem conseguir ficarei muito grato

<%' Upload Sem componentes ---------------------------------------Sub BuildUploadRequest(RequestBin)on error resume nextPosBeg = 1PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))boundary = MidB(RequestBin, PosBeg, PosEnd - PosBeg)BoundaryPos = InStrB(1, RequestBin, boundary)Do Until (BoundaryPos = InStrB(RequestBin, boundary & getByteString("--")))Dim UploadControlSet UploadControl = CreateObject("Scripting.Dictionary")Pos = InStrB(BoundaryPos, RequestBin, getByteString("Content-Disposition"))Pos = InStrB(Pos, RequestBin, getByteString("name="))PosBeg = Pos + 6PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))Name = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))PosFile = InStrB(BoundaryPos, RequestBin, getByteString("filename="))PosBound = InStrB(PosEnd, RequestBin, boundary)If PosFile <> 0 And (PosFile < PosBound) ThenPosBeg = PosFile + 10PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))FileName = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))UploadControl.Add "FileName", FileNamePos = InStrB(PosEnd, RequestBin, getByteString("Content-Type:"))PosBeg = Pos + 14PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))ContentType = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))UploadControl.Add "ContentType", ContentTypePosBeg = PosEnd + 4PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2Value = MidB(RequestBin, PosBeg, PosEnd - PosBeg)ElsePos = InStrB(Pos, RequestBin, getByteString(Chr(13)))PosBeg = Pos + 4PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2Value = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))End IfUploadControl.Add "Value", ValueUploadRequest.Add Name, UploadControlBoundaryPos = InStrB(BoundaryPos + LenB(boundary), RequestBin, boundary)LoopEnd SubFunction getByteString(StringStr)For i = 1 To Len(StringStr)Char = Mid(StringStr, i, 1)getByteString = getByteString & ChrB(AscB(Char))NextEnd FunctionFunction getString(StringBin)getString = ""For intCount = 1 To LenB(StringBin)getString = getString & Chr(AscB(MidB(StringBin, intCount, 1)))NextEnd Function'Fim upload sem Componentes -----------------------------------------Response.Expires = -1Server.ScriptTimeout = 600'Chamando Funções, que fazem o Upload funcionarbyteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Set UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBin' Recuperando os Dados Digitados ----------------------' Caminho completo dos arquivos enviadoscaminho_foto = UploadRequest.Item("dirname").Item("FileName")' Nome dos arquivos enviadosnome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))'Conteudo binario dos arquivos enviadosfoto = UploadRequest.Item("dirname").Item("Value")' pasta onde as imagens serao guardadaspasta_destino = "d:\domains\igadino.com\wwwroot\"&UploadRequest.Item("arquivos").Item("Value")pasta = pasta_destino &"\"&nome_foto'pasta + nome dos arquivosSet objFS = Server.CreateObject("Scripting.FileSystemObject")Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")Set MyFile = ScriptObject.CreateTextFile(pasta)For i = 1 to LenB(foto)MyFile.Write chr(AscB(MidB(foto,i,1)))NextMyFile.CloseSet objFS = Nothing%>

[sr.silva 1]

Olá igadino,

 

Segue uma busca simples pelo fórum..

 

http://forum.imasters.com.br/index.php?act...highlite=upload

 

Até!!

[dimarcinho 0]

cara, se você fala sobre upload de multiplos arkivos, vai precisar de algum componente ActiveXtem uns pagos por aih....mas um carinha q frequentava o forum a uns anos atrás desenvolveu uma OCX q faz o trabalhoprocura por FSUpload.OCX ou FSUpload, ou algo parecidono topico ainda tem o link pra download e eu mesmo colokei um exemplo lah pra fazer o eskema q tu ker!!![]s

[igadino 0]

Ainda estou no aguarde...igadino