Sobre manejo de archivos

[Said]

Hola como puedo hacer para escribir en una archivo una cadena pero que cada vez que escriba otra cadena la ponga en la siguiente linea?

Private Sub MGuardar_Click()
Dim Said As String
Dim I As Integer
Said = ""
Open "C:\prueba.imp" For Output As #1
For I = 1 To 10

Said = Said & "Ney"
Seek #1, I
Print #1, Said

Next I
Close #1
End Sub


Yo usaba esto pero asi escribe las cadenas en la misma linea.



Gracias.

[[EX3]]

Añade un vbNewLine al final de cada linea que escribas. Por cierto, la instruccion Seek te sobra ya que la posicion de lectura/escritura se posiciona en el siguiente registro al escrito/leido en el archivo automaticamente:

Código:

 Private Sub MGuardar_Click()
    Dim Said As String
    Dim I As Integer

    Open "C:\prueba.imp" For Output As #1
        For I = 1 To 10
            Said = Said & "Ney" & vbNewLine
            Print #1, Said
        
        Next I

    Close #1

End Sub

Salu2...

[Said]

Gracias realmente util.