Crear, leer y guardar archivos con ASP

Escrito por Mauro Rondinelli el Domingo 15 de Abril de 2001 a las 00:00hs

Mumbanet-google

Vamos a ver como crear, leer y guardar archivos en el servidor utilizando el objeto FileSystemObject. Antes que nada veamos bien para que sirve este objeto, el FileSystemObject nos permite realizar operaciones con archivos, carpetas y unidades del servidor.

Hay que tener en cuenta al realizar estas operaciones que los archivos o directorios tengan los permisos adecuados, por ejemplo si hay una carpeta o un archivo de solo lectura e intentamos borrarlo nos dara un error, pero lo que hoy nos ocupa son los archivos asi que vamos a ver como se crea este objeto...

Const ForReading = 1' declaramos las constantes
Dim fso, archivo, texto ' declaramos las variables

Set fso = CreateObject("Scripting.FileSystemObject")

Primero declaramos las variables y constantes que utilizamos (mas adelante explicaremos cada una) y despues creamos el objeto 'FileSystemObject' y se lo asigna a la variable 'fso', ahora crearemos un archivo llamado 'prueba.txt'

set archivo = fso.CreateTextFile ("prueba.txt", true)

Con esta instruccion creamos el archivo pasado como primer parametro ('prueba.txt ') el archivo se creara en la raiz del sitio o del disco rigido, el segundo parametro es del tipo boolean (verdadero / falso) e indica si el archivo debe ser sobreescrito en el caso de que ya exista, este archivo se le asigna a la variable 'archivo' la cual utilizaremos para trabajar con el mismo . Bueno ya tenemos un archivo creado ahora vamos a escribir algo en su interior.

archivo.WriteLine("Probando el archivo.")
archivo.Close


Lo que realizamos aca fue escribir en el archivo con el metodo 'WriteLine', este metodo escribe el texto pasado como parametro, tambien existe el metodo 'Write' que a diferencia de 'WriteLine' escribe todo en una misma linea, 'WriteLine' escribe y luego salta a la linea siguiente. Despues de escribir cerramos el archivo con 'Close'. Ahora vamos a ver como leer el contenido de un archivo

set archivo = fso.OpenTextFile ("prueba.txt", ForReading)

Abrimos el archivo y lo asignamos a la variable 'archivo', el metodo 'OpenTextFile' tiene como parametros el nombre del archivo y el modo de apertura, en nuestro caso 'ForReading' (para lectura) que lo definimos como constante al comienzo, ahora tenemos que leer el contenido del archivo, para ello existen dos metodos 'Read' que lee el numero de caracteres pasado como parametro, si ponemos 'Read (8)' nos devuelve los primeros 8 caracteres, el otro metodo es 'ReadAll' que nos devuelve todo el contenido del archivo y la forma de aplicarlo seria la siguiente...

texto = archivo.ReadAll

archivo.close

Ahora tenemos el contenido del archivo en la variable texto y la forma de ver su contenido es con el famoso 'Response.Write'

Response.Write texto

Listo.


comentarios



  1. muy bueno pero tengo una dificultas, me gustaria guardarlo en una carpeta especifica en el servidor!!, como lo hago?, gracias a kien me ayude!!



  2. MUY BUENO MEN, PERO ME GUSTARIA SABER QUE CAMBIARIA O COMO SERIA SI FUESE UN .XLS Y NO .TXT



  3. Excelente .... muy buen aporte



  4. Muy bueno me fue de mucha ayuda.... Mil gracias

agregar comentario


Se permiten las etiquetas HTML <b>, <i> y <p>. Si ingresa alguna dirección web o dirección de email serán convertidos en enlaces automáticamente.





publicidad

API DE FACEBOOK
GOOGLE CALENDAR API
GOOGLE MAPS API