Tenho o código abaixo que escrevi baseado em exemplos que encontrei na net, assim fui lapidando este código de upload que segue abaixo:
Dim Caminho, Tamanho, BinCont, txtContem, Nome, Arquivo Dim Conteudo, Conte, fso Nome = Array() Caminho = Server.MapPath("Arquivos") Tamanho = Request.TotalBytes BinCont = Request.BinaryRead(Tamanho) For Contador = 1 To Tamanho txtContem = txtContem & Chr(AscB(MidB(BinCont, Contador, Tamanho))) Next NomeUm = Split(txtContem, ";") NomeDois = Split(NomeUm(2), "=") NomeTres = Split(NomeDois(1), """") Nome = Split(NomeTres(1), "\") NN = UBound(Nome) Arquivo = Nome(NN) Conte = Split(txtContem, "Type") Conteudo = Split(Conte(1), " ") Set fso = Server.CreateObject("Scripting.FileSystemObject") If Arquivo <> "" Then Set objArq = fso.CreateTextFile(Caminho & "/" & Arquivo, true) objArq.WriteLine Conteudo(1) objArq.CLose Set fso = nothing Response.Redirect "Upload.asp?n=1" Else Response.Redirect "Upload.asp?n=0" End If
Esse código, gera o arquivo certo no caminho, mas, na hora de escrever o conteúdo ele escreve apenas parte do arquivo, não escrevendo o conteúdo completo.
Aqui estou tentando fazer apenas Upload de arquivos de texto.
Se alguém puder me ajudar......
Grato.