Scripts varios
Ejemplos de cómo generar un fichero de texto.
Atención: El usuario que guarda debe de tener permiso de escritura en la ruta seleccionada. Se recomienda que no sea en la raíz de una unidad de disco.
Ver código ejemplo
' Ejemplo con FileSystemObject
Sub Main()
frmAux.Descargar 'ATENCIÓN: DEBE ESTAR SIEMPRE QUE NO SE MUESTRE EL FORMULARIO.
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\temp\testfile.txt", True)
lVar = "contenido de mi variable"
a.WriteLine("This is a test l1.")
a.WriteLinelVar & ";A;" & lVar )
a.WriteLine("This is a test l3.")
a.Close
End Sub
'Ejemplo con funciones de la librería ahoraUtil, esta vez utilizando un recordset
Sub Main()
frmAux.Descargar
Set lObj = CreateObject("AhoraUtil.CUtil")
lpath = "C:\Compartida\"
lcliente = InputBox("Nombre Cliente:")
lSQL = "SELECT * from Pantallas_Configuracion_Scripts"
Set lr1 = gcn.OpenResultSet (lSQL,2,3)
Do While Not lr1.EOF
lCadFile = CStr(lr1("Codigo"))
lfichero = lcliente & " - " & CStr(lr1("Pantalla"))
lObj.GuardaFichero lpath & lfichero & ".txt",CStr(lCadFile)
lr1.MoveNext
Loop
MsgBox "Extracción terminada " & lpath
End Sub