SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: makisone en Viernes 23 de Julio de 2004, 23:52

Título: --> Vb 6 Y Archivos *.inf .:: Urgente ::.
Publicado por: makisone en Viernes 23 de Julio de 2004, 23:52

Hola, tengo una aplicacion ke guarda una serie de datos (texto) en un archivo .inf, pero siempre me lo guarda con un Intro de mas y no hay manera de kitarlo.  :(

¿Alguien sabe como hacerlo?

SaLuDoS.

Título: Re: --> Vb 6 Y Archivos *.inf .:: Urgente ::.
Publicado por: Jose Arriagada en Sábado 24 de Julio de 2004, 00:08

Si colocas en este foro la parte del codigo que guarda las lineas, o mejor aun, las ultima linea en el archivo, quizas podamos ayudarte, por que aun, ninguno de nosotros tiene la capacidad de adivinar. Por lo menos, yo no. Con el codigo, te ayudariamos mejor.

Título: Re: --> Vb 6 Y Archivos *.inf .:: Urgente ::.
Publicado por: makisone en Sábado 24 de Julio de 2004, 00:23

Private Sub OKButton_Click()

    Config = ""
   
If Mid(Dir1.Path, 3, 3) = "\" Then
    Config = "1" & Dir1.Path
Else
    Config = "1" & Dir1.Path & "\"
End If

    SaveConfig

Unload Me

End Sub


--------MODULO-------

Function SaveConfig()

ConfigCanal = FreeFile
DirConfig = "D:\Visual basic\Mis proyectos\MKS\config.inf"

    Open DirConfig For Output As ConfigCanal
        Print #ConfigCanal, Config
    Close ConfigCanal
   

LoadConfig
   
End Function