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


Autor: Pablo Pellicer