GRACIAS A LA EXPLICACION... PERO SIGO TENIENDO EL MISMO PROBLEMA:
YO GUARDO TODOS LOS ARCHIVOS .TXT EN LA CARPETA XEROX (SON 20 ARCHIVOS EN TOTAL) 10 SE LLAMAN nom1, nom2, nom3... Y OTROS 10 con1, con2, con3...
LOS CODIGOS Q USE PARA GUARDAR LOS ARCHIVOS SON:
Private Sub gua_Click()
Open "C:\Archivos de programa\xerox\nom1.txt" For Append As #1
Print #1, nom1
Close #1
Open "C:\Archivos de programa\xerox\con1.txt" For Append As #2
Print #2, con1
Close #2
Open "C:\Archivos de programa\xerox\nom2.txt" For Append As #3
Print #3, nom2
Close #3
LOS TEXT(X) IMPARES CONTIENEN LA VARIABLE nom(x) Y LOS PARES con(x)
PARA ABRIR EL ARCHIVO USE EL SIGUIENTE CODIGO:
Open "C:\Archivos de programa\xerox\nom1.txt" For Binary As #21
nom1 = Space(LOF(21))
Get #21, , nom1
Close #21
Text1.Text = nom1
Open "C:\Archivos de programa\xerox\con1.txt" For Binary As #21
con1 = Space(LOF(21))
Get #21, , con1
Close #21
Text1.Text = con1
Open "C:\Archivos de programa\xerox\nom2.txt" For Binary As #22
nom2 = Space(LOF(22))
Get #22, , nom2
Close #22
Text3.Text = nom2
Y ME PONE EN TODOS LOS TEXT LO MISMO (EL TEXTO Q TENDRIA Q APARECER SOLAMENTE EN EL TEXT1 SEGUIDO DE DOS RAYITAS)...
TRATANDO DE PONER LAS DOR RAYITAS ACA, (PARA Q VEAN Q PUEDE SER) EN VES DE PONERSE SE BAJA UN REGLON COMO SI HUBIESE TOCADO EL ENTER
ESPERO Q ME HALLAN ENTENDIDO Y ME SEPAN EXPLICAR
MUCHAS GRACIAS