Código fuente de 'Contenido fichero(s) en una variable.asp'
<html>
<head>
<title>Contenido fichero(s) en una variable - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Contenido fichero(s) en una variable</font></b></p>
<body style="font-family: Arial; font-size: 11pt">
<br>
Mete el contenido de uno o varios ficheros (pruebas.txt, pruebas2.txt en este caso) en una variable.
<%
Dim FSO, oCarpeta, colFicheros, fichero, oFichero
Dim sContenido
set FSO = Server.CreateObject("Scripting.FileSystemObject")
'set oCarpeta = FSO.GetFolder("C:\Inetpub\wwwroot\ZSencillos\Texto\")
set oCarpeta = FSO.GetFolder(server.mappath("./"))
'response.write(server.mappath("./"))
set colFicheros = oCarpeta.Files
'Recorremos la colección de ficheros (objetos File)
for each fichero in colFicheros
if instr(fichero.Name, ".txt")>0 then
'Abro el fichero para lectura (ForReading)
set oFichero = fichero.OpenAsTextStream(1)
'Leo todo el fichero a una variable
sContenido = scontenido+oFichero.ReadAll 'sumaría el contenido al anterior
'Cierro el fichero
oFichero.Close
set oFichero = nothing
end if
next 'fichero
%><br><br><%
response.write "El contenido de la variable es: "
%><br><%
response.write sContenido
set colFicheros = nothing
set oCarpeta = nothing
set FSO = nothing
%>
<p align="center"><b>Archivos a descargar (incluido este):<br>
</b><a href="ContenidoFicheroEnVariable.zip">ContenidoFicheroEnVariable.zip</a><b><br>
<br>
</b></p>
</body>
</body>
</html></body>
</html>