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.
