Mensaje enviado por "Jorge Clemente Hermoza" <JClemente@lanet.com.pe>

Bueno, aqui te va un ejemplo sencillo de como crear un TXT estructurado.....

Primero, creo la estructura del archivo TXT...
    Type Registro
        Codigo as String * 30
        Direccion as String * 45
        Telefono as String * 8
        Salto as String *2-------> OjO: este campo almacenara los caracteres de salto de linea y retorno de carro
    End Type

Segundo, defino una variable con esa estructura....
    Public Archivo as Registro

Tercero, creo un archivo TXT...
    Dim Fichero as String
    Fichero = "Prueba.txt"
    Open Fichero for Output as #1 len=len(Archivo)

Cuarto, se supone que tengo que obtener los datos de una Base de Datos (supongamos Access), una vez ya abierta la tabla a utilizar (suponemos que el recordset se llame Tabla), vendria el siguiente codigo...
    nReg=0
    Do While Not Tabla.Eof
        nReg=nReg+1
        With Archivo
            .Codigo = tabla("Codigo")
            .Nombre = tabla("Nombre")
            .Direccion = tabla("Direccion")
            .Salto = VBCR & VBLF
        End With
        Put #1,nReg,Archivo
        Tabla.MoveNext
    Loop

Quinto, cierras el archivo texto y las Tablas /Bases de Datos
    Close #1
    Tabla.close

Y....., listo ya esta creado tu archivo.....