Hola, como andan?
Alguien me socorre? La verdad, no les miento. ME ESTOY VOLVIENDO LOCA!
XD Necesito hacer un uploader de archivos txt para uso personal de una empresa.
Me pidieron que haga un programita que lea los archivos subidos y que los "acumule"en un solo archivo.
Leyendo y probando, no encontré nada parecido a lo que necesito. Creo que es algo muy de base pero la verdad que no logro dar con ello.
¿Por donde sigo?
Hasta ahora voy por acá. Me tira errores por todos lados y no puedo guardar el archivo. Si, guarda el archivo pero BLANCO. ¿Como se hace esa parte?
Aclaro, la empresa no presta intenciones de instalar ni descargar ninguna clase ni nada parecido. Quieren ASP PURO.
Acá les dejo como estoy tratanto el tema:
Código:
<!--#include virtual="/adovbs.inc" -->
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
if Request.Form("archivo") = "" then
Response.write "entre"
%>
<form method="post" action="files.asp">
<input type=file name=archivo><input type=submit value=Submit>
</form>
<%
End if
dim FS, RS, objFSO, TS
set FS=Server.CreateObject("Scripting.FileSystemObject")
Arch=Request.Form("archivo")
FS.CreateTextFile(Arch)
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
HitsFile = Server.MapPath("\tmp\texto.txt")
Set RS = FileObject.OpenTextFile (HitsFile, 8, true)
' Abro el archivo que importé para leerlo y grabarlo en Texto.txt
Path=Server.MapPath("./")&"\"&Arch
Response.write "Path= "&Path
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set TS = objFSO.OpenTextFile(Path,1)
do while TS.AtEndOfStream<>true
x=t.Read(1)
loop
TS.close
Response.Write("The last character is: " & x)
' Cierro el archivo
%>
</BODY>
</HTML>