• Jueves 28 de Marzo de 2024, 21:12

Autor Tema:  --> Vb 6 Y Archivos *.inf .:: Urgente ::.  (Leído 1184 veces)

makisone

  • Nuevo Miembro
  • *
  • Mensajes: 22
    • Ver Perfil
--> Vb 6 Y Archivos *.inf .:: Urgente ::.
« en: Viernes 23 de Julio de 2004, 23:52 »
0
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.

Jose Arriagada

  • Miembro MUY activo
  • ***
  • Mensajes: 373
    • Ver Perfil
Re: --> Vb 6 Y Archivos *.inf .:: Urgente ::.
« Respuesta #1 en: Sábado 24 de Julio de 2004, 00:08 »
0
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.

makisone

  • Nuevo Miembro
  • *
  • Mensajes: 22
    • Ver Perfil
Re: --> Vb 6 Y Archivos *.inf .:: Urgente ::.
« Respuesta #2 en: Sábado 24 de Julio de 2004, 00:23 »
0
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