SprintDevelop.com - Diseño y desarrollo web - Diseño, desarrollo web,Aplicaciones Móviles, TabletasSprintDevelop.com - Diseño y desarrollo web
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!!
Visitas: 34823 - 03/07/2003
CODIGO SIN DEMOSTRACIONCODIGO NO EJECUTABLENO CONTIENE ARCHIVO DESCARGABLE
CODIGO
Codigo probado en Internet Explorer 4++Codigo probado en Mozilla FirefoxCodigo probado en NetscapeCodigo probado en OperaCodigo probado en Safari


<% '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 -->
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.-
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)
gomi__ 20-12-2008 00:11:22
en busca de informacion
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
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.