Mostrando Codigo - Asp
Leer y crear un archivo de texto
Utiliza FSO Para leer y crear un archivo de texto.
Con FSO podemos crear todo tipo de archicos y extensiones de todo tipo.
en este ejemplo creamos un archivo de texto .txt
solamente debemos modificar c: estfile.txt con el path correcto donde queremos crear o modificar el archivo.
Hay que tener en cuenta que la carpeta debe tener permisos de escritura!!
CODIGO
<% 'Codigo ofrecido por Tutores.org %>
<%
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c: estfile.txt", ForWriting, True)
f.Write "Hola se ha escrito el archivo!"
%>
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Leer y crear un archivo de texto" href="http://www.tutores.org/codigo/3/" target="_blank">Leer y crear un archivo de texto</a>
<!-- Final enlace Tutores.org -->
<a title="Tutores.org - Leer y crear un archivo de texto" href="http://www.tutores.org/codigo/3/" target="_blank">Leer y crear un archivo de texto</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
JhOnAtAn
pucha q fea nota a no tienes nada de informacion para el usuario ha esta mal tienes q acxtualoizarte ps uya okkk bueno havblamos ps bye
xplorer_mx
Que tal un saludo desde Mx.
Tengo la necesidad de cambiar la ruta en donde deposito archivos por falta de espacio, personal de Informatica me asigno un espacio mucho mas grande pero no encuentro la forma de direccionar la informacion hacia alla, te envio parte del codigo del Actual y de como lo requiero.
Actualmente uso este y funciona muy bien:
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(server.mappath("..") & "/scr/upload/"&nombre2L&"/" & _
FileName, ForWriting, True)
Por falta de espacio necesito enviar la informacion a un server de archivos:
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(server.mappath("") & "e.110.10.10scr"&nombre2L&"" & _
FileName, ForWriting, True)
Espero puedas ayudarme. gracias
Saludos.-
Tengo la necesidad de cambiar la ruta en donde deposito archivos por falta de espacio, personal de Informatica me asigno un espacio mucho mas grande pero no encuentro la forma de direccionar la informacion hacia alla, te envio parte del codigo del Actual y de como lo requiero.
Actualmente uso este y funciona muy bien:
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(server.mappath("..") & "/scr/upload/"&nombre2L&"/" & _
FileName, ForWriting, True)
Por falta de espacio necesito enviar la informacion a un server de archivos:
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(server.mappath("") & "e.110.10.10scr"&nombre2L&"" & _
FileName, ForWriting, True)
Espero puedas ayudarme. gracias
Saludos.-
rayodeplata77
xplorer_mx para que te funcione el codigo tenes que sacarle server.mappath("") y la linea te quedaria
Set f = fso.OpenTextFile("http:e.110.10.10scr"&nombre2L&"" & _FileName, ForWriting, True)
Set f = fso.OpenTextFile("http:e.110.10.10scr"&nombre2L&"" & _FileName, ForWriting, True)
gomi__ 20-12-2008 00:11:22
en busca de informacion
y tratar de ser un aporte
y tratar de ser un aporte
alma 07-03-2008 08:24:17
hola necesito me podrias ayudar con asp lo k pas k tengo k alinear los datos en el block de notas pero no se como bueno t te explico ya realize mi archivo de texto desde asp yt m lo manda aun txt este es mi codigo
<%
set MFso = server.createobject("scripting.filesystemobject")
set Marchivo = MFso.opentextfile("c:pruebalista.txt",8,true)
MArchivo.writeline "registros:"
MArchivo.writeline(a)
MArchivo.writeline(b)
MArchivo.writeline(c)
MArchivo.writelin e(d)
MArchivo.writeline(e)
MArchivo.writeline(f)
MArchivo.writeline(g)
MArchivo.writeline(h)
MA rchivo.writeline(i)
MArchivo.close%>
ESO esta bien pero ahora quiero k cuando mande los datos en el block de notas me los alinea automatica mente como l puedo hacer me podrias ayudar porfavor.espero tu repueta en m,i correo gracias
<%
set MFso = server.createobject("scripting.filesystemobject")
set Marchivo = MFso.opentextfile("c:pruebalista.txt",8,true)
MArchivo.writeline "registros:"
MArchivo.writeline(a)
MArchivo.writeline(b)
MArchivo.writeline(c)
MArchivo.writelin e(d)
MArchivo.writeline(e)
MArchivo.writeline(f)
MArchivo.writeline(g)
MArchivo.writeline(h)
MA rchivo.writeline(i)
MArchivo.close%>
ESO esta bien pero ahora quiero k cuando mande los datos en el block de notas me los alinea automatica mente como l puedo hacer me podrias ayudar porfavor.espero tu repueta en m,i correo gracias
INSERTAR COMENTARIO