none
ayuda codigo de VB6 EN VISUAL STUDIO 2010 NO FUNCIONA

    Question

  • Hola necesito ayuda

    tengo un codigo  de VB6 EN VISUAL STUDIO 2010 NO FUNCIONA, que lo coloco en un boton y me guarda informacion en un archivo de excellcomo lo podria hacer en VS2010 =?

    Private Sub GUARDAR_Click()
    Dim strArchivo As String
    Dim StrTexto As String
    Dim intArchivo As Integer
    intArchivo = FreeFile
    Open "C:\Users\ADMIN3\Desktop\ACLARACIONES.xls" For Append As #intArchivo
    While Not EOF(intArchivo)
    Line Input #intArchivo, StrTexto$
    Wend
    Print #intArchivo, "ACLARACIONES"; Chr(9); LASE.Caption; Chr(9); LSEG.Caption; Chr(9); LCON.Caption; Chr(9); LMOT.Caption; Chr(9); Format(Now, "dd-mm-yyyy")
    End
    End Sub

    Muchas gracias ,todas los aportes son bienvenidos

    Saturday, April 20, 2013 3:40 AM

Answers

  • Recomendaría que actualices el código a VB.NET. Ese código usa las sentecias nativas de VB6 para grabar el fichero; en VB.NET, típicamente lo que se hace es llamar a las librerías de manejo de archivos que el Framework contiene en el espacio de nombres System.IO.

    Si he entendido lo que hace tu código, abre un archivo, lo lee hasta el final, y después le añade una línea. Con las librerías del Framework, basta una línea de código para hacer el append al final del fichero:

    Private Sub GUARDAR_Click(Sender as Object, e as EventArgs) Handles GUARDAR.Click
      Using sw as New System.Io.StreamWriter("C:\Users\ADMIN3\Desktop\ACLARACIONES.xls", True)
        sw.WriteLine("ACLARACIONES" & Chr(9) & LASE.Caption & Chr(9) & LSEG.Caption & Chr(9) & LCON.Caption & Chr(9) & LMOT.Caption & Chr(9) & DateTime.Now.ToString("dd-mm-yyyy"))
      End Using
    End Sub

    • Marked as answer by tonatiu2013 Sunday, April 21, 2013 2:12 AM
    Saturday, April 20, 2013 6:26 AM