Ver Mensaje Individual
  #17 (permalink)  
Antiguo 23/10/2004, 10:09
Avatar de Muzztein
Muzztein
 
Fecha de Ingreso: agosto-2002
Ubicación: Hangar 18
Mensajes: 1.703
Antigüedad: 21 años, 7 meses
Puntos: 16
Exclamación EscribeEnDisco

Funcion que toma un texto y lo guarda en un archivo en el disco duro..


Obviamente se necesita tener poder de escritura sobre la carpeta donde se esta guardando el archivo.
Si es que se ejecuta multiples veces, la funcion abrirá el documento y le anexara la nueva entrada de texto.

Es especial para hacer tus propios LOGS y sistemas de control por el estilo.


Código:
Function EscribeEnDisco(texto,archivo)
   Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
   Dim fso, f, ts
   Set fso = CreateObject("Scripting.FileSystemObject")
   
   On Error Resume next
   Set f = fso.GetFile(archivo) 

  
   if Err.number <> 0 then
	 fso.CreateTextFile archivo  
	 Set f = fso.GetFile(archivo)
   End if
   
   Set ts = f.OpenAsTextStream(ForAppending, TristateUseDefault)
   ts.Write texto & Vbcrlf
   ts.Close
   Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
   EscribeEnDisco = ts.ReadLine
   ts.Close
End Function
Para llamarla se hace asi.


Código:
EscribeEnDisco now , "c:\testing_datos.txt"
este ejemplo escribira la fecha actual en un documento y lo guardara en el archivo que se especifica.