Escribir en un archivo de texto en VB6

Aquí está el código:

__
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim file As System.IO.StreamWriter
Dim mywriteline, T(3) As String
Dim i As Integer
Dim A, B, C As String
' variables a escribir
A = "1"
B = "2"
C = "3"
'Ingresamos las variables en un array
T(0) = A
T(1) = B
T(2) = C

'Apertura del archivo en escritura, borrando las líneas existentes.
'Para añadir datos, poner True en lugar de False al final de la línea.
file = My.Computer.FileSystem.OpenTextFileWriter(My.Computer.FileSystem.CurrentDirectory & "\tarif.txt", False)
'escritura línea por línea
mywriteline = ""
Do Until i > 3
mywriteline = T(i)
file.WriteLine(mywriteline)
i = i + 1
Loop
file.Close()
End Sub

__

para escribir en un archivo hay varias posibilidades:

1. abrir "C:\essai.txt" para aleatorio como #1
poner 1,,"Salut" --> para escribir
obtener 1,,maVariable --> para leer

2. abrir "C:\essai.txt" para salida como #1
escribir #1, "Salut" --> para escribir

2a. abrir "C:\essai.txt" para entrada como #1
entrada #1, maVariable --> para leer

3. el método con "Appened" citado por Kalamit

Atención: después de usar un archivo, se debe utilizar la instrucción
" close" para cerrar el archivo.

De hecho, resulta muy difícil encontrar información sobre la gestión de archivos de texto en VB Express.
Por mi parte, finalmente he conseguido abrir y leer un archivo estructurado línea por línea. Actualmente estoy trabajando en la escritura del archivo. A continuación, el código:
__
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim mystreamreader As IO.StreamReader
Dim myreadline(), T(3) As String
Dim i As Integer
Dim A, B, C As String
' El archivo se llama tarif.txt, tiene 3 líneas para la prueba, y se encuentra en la misma carpeta que el ejecutable.
'Apertura en lectura
mystreamreader = My.Computer.FileSystem.OpenTextFileReader(My.Computer.FileSystem.CurrentDirectory & "\tarif.txt")
'Lectura línea por línea
Do Until mystreamreader.EndOfStream
myreadline = Split(mystreamreader.ReadLine(), "")
T(i) = myreadline(0)
i = i + 1
Loop
'Entrada de los datos en las variables
A = T(0)
B = T(1)
C = T(2)
End Sub
__

A continuación, el archivo "Tarif.txt" realizado con Notepad:

123
456
789

Subo en lugar de hacer la misma pregunta, pero si encuentro, te respondo... A menos que tú hayas encontrado?

. .
\_/

Y un enlace interesante para todos los que tienen el problema... A mí me funciona como un reloj (leer también los comentarios de los demás sobre este código...)
.
\_/

Hola,

Abre "c:\TEST\error.log" para agregar como 1
Imprime #1, "Error en el procedimiento PDB a txt"
Imprime #1, PdbConvert1.GetErrorText
Imprime #1, ocxerror
Imprime #1, " "
Imprime #1, "***************************************"
Imprime #1, " "
Cierra

Es un código tipo. Pero mira las opciones de apertura de archivos en VBFrance, hay varias.
a+

Kalamit,
Yo lijo, por lo tanto limpio.

Hola,

Actualmente estoy utilizando Visual Basic Express para hacer lo mismo (el objetivo es crear un archivo de texto que contenga valores numéricos en un cierto orden, y me gustaría saber si conoces alguna forma de abrir el archivo de texto en Express. La función open parece de hecho no existir en Express.