12/07/2003, 22:34
|
 | | | Fecha de Ingreso: mayo-2003 Ubicación: Panama city, Panama, Panama
Mensajes: 1.154
Antigüedad: 21 años, 11 meses Puntos: 5 | |
| prueba con este pa ve....
<%
dim FSO
dim oCarpeta
dim colFicheros
dim oFich
dim mivariable
set FSO = Server.CreateObject("Scripting.FileSystemObject")
set oCarpeta = FSO.GetFolder(Server.MapPath("estrellas"))
set colFicheros = oCarpeta.Files
set oFich = FSO.CreateTextFile( Server.MapPath("estrellas/archivo.txt"), True )
mivariable = "este es el texto que se guardara en el archivo."
oFich.WriteLine(mivariable)
oFich.Close
set oFich = nothing
%>
__________________
Saruman
One Ring to rule them all, One Ring to find them, One Ring to bring them all and in the darkness bind them. |