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.
