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.